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在 ProDOS 上 的 DOS3.3 系 梳 档 案 


ProDOS 指 兮 


超 小 型 工具 程式 集 


增 负 数 字 键 

水 长 流 一 一 高 解 像 加 案 工 具 程式 之 一 
D0S3.3 BOOT 楼 标 却 

Pro DO0S 数 印 列 


512Xx 192 的 高 解 像 图 案 
钦 故 知 新 


趣味 图 案 集 一 一 第 二 三 


除数 小 老师 


林 并 圾 
项 采信 箱 


/有 确 - 一 、 





凡 


J 


十 苹 


很 多 读者 都 对 闽 果 用 家 第 1 9 
期 刊 出 的 「 一 碟 击 制 」 磁 碟 驱 作法 
感到 要 趣 。 但 是 只 然 同 一 片 磁 碟 上 


RN 


人 


ARTASD 


四 
- 


的 





可 以 储存 DO0835 .5 及 EroDo 
-- S 两 标 不 同 操作 柔 航 的 档案 。 但 
是 美中不足 丰 没有 5ystem， 





极其 量 只 可 以 放 ProDOo8 的 8 一 
ystem 在 ProDOS 的 区 域内 ( 
镍 情 做 看 第 1 9 期 3 1 页 的 如 明 ) 
本 文 便 是 补充 没有 DO 8 5 
台 的 System 之 不 足 ， 找 出 一 年 
最 简易 的 方法 ， 把 它 加 在 「『 一 矶 两 
制 」 的 人 磁 碟 上 ， 使 一 上 乒 磁 柜上 所有 


两 个 System 一 一 Pr 5D0S 及 了 
一 08S835. 3:! 


事 城 「 一 碟 雨 制 」 磁 碟 


在 移 作 了 一 碟 两 制 」 或 上 多 DT 
一 08 资 料 」 磁 夸 时 。 由 苍 都 是 首 
先 用 ProDOS 的 了 II 了 HR 工具 程 
式 格式 的 。 所 以 它 的 Track 0 内 
容 是 和 一 片 Prf oD0S 巩 碟 纸 轩 ， 
Tracko 的 Loader 程式 亦 是 
ProDOS 式 的 。 所 以 在 Pr oDOS 
区 域内 只 要 有 了 PRODOS 及 BABSI 
一 C.SYSTEM 大 个 档案 便 可 以 
进 信 ProDOS 了 。 

而 在 进入 ProDOS 和 全， 我 们 
容 要 有 一 个 DOS3sS5 .ss 的 Syst 
一 em 。 把 它 热 行 便 应 可 以 进入 D 
一 0Ss.… ss 模式 了 。 

本 来 最 佳 的 届 天 此 臣 是 在 卫 一 
oot 机 和 后。 立刻 询问 要 半 择 哪 一 个 
操作 系统 。 但 壳 梯 便 票 作 比 较 大 的 
改动 。 禹 了 外用 户 母 需 作 太 大 的 政 


动 。 便 可 以 使 用 PrfoD08 以 外 的 
DO8 ， 我 们 乓 用 了 前 者 的 太 法 一 
一 把 其 它 D 0 8 系 航 程式 抠 成 了 一 
roD08 形式 的 档案 。 把 它们 放 在 
PrtoDOS 区 域 之 内 。 

现在 我 从 的 唯一 工作 便 是 做 一 
佰 DOS5。35System 的 了 一 
roDOS 档案 。 


把 DOS 3.3 System 
购 成 档案 


要 在 D 0 8 5 . 3 上 取出 S-- 
ys tem 把 它 存 在 档案 上 十 分 简章 
a 甚 步骤 如 下 : 


1 Boot 一 片 DOS3S ， 
2 ` 按 指 今 : 
BSAVE DOoS953.5 。，A 中 
9600，L1942A00 
把 它 以 名 倚 DQU 8 5 ， 
案 名字 储 存 。 
过 蛙 你 已 有 一 个 DOQOSsS .5 的 9 
一 ystem 档案 ， 由 於 过 仍然 是 D 
一 085。5 格 式 ， 所 以 必须 把 它 
转轨 成 ProD0OS 格式 。 过 时 你 便 
宕 要 用 到 ProD0OS 的 CONVERT 
工具 程式 。 把 DOS5s5 .5 档案 妈 
成 ProDOS 格式 。 
但 是 过 个 在 EroDOR 上 的 了 
一 0835。5 档案 仍 未 能 金 使 用 。 
我 们 必须 要 作 一 些 安 排 。 


5 琉 夸 


”的 人 


2004- 邱 01 STA $01 
2008- 有 间 00 LDA 4400 
200N- 85 00 58TA $00 
200L- 的 02 3ST 人 02 


能 顺利 进入 DOS 3.3 200E-  R2 2 LDX 。 才 28 
2010- 和 朋 TAY 
的 本 式 _ 20i!- 昌 DEY 
. 2012- 8B1 00 LA (400) 
改良 档案 的 步 耿 如 下 : 《在 上 2014- 91 02 STR (502) 
一 T0D08 之 下 工作 ) 2014- 。 引 TY 
1 用 指 今 : 2017- 0 Pb BNE 和 2011 
BLOAD D0835.5。Af 2019- BE 0 II 和 1 
2o000 2013-  B 03 INC 403 
把 和 由 CONVERT 而 来 的 DO 2010- 二 IE 
--S3 。3 档 案 载 和 人 电脑 预备 20tt- DFI BE 42011 
修改 。 2020- 2059FC JSR 针 C58 
2023- 入 和 LIX 办 48 . 
2 键 人 : 2025- 8 0 20 LN 200 
DELETE DO0S35 .3 2028- 90 003 8T 40300 
删 去 DOS 3s，。5 过 个 档案 。 2028- 以 EN 
3， 刍 入 : 202C- 10f7 BPL 42025 
。 了 。 2025- 4C 8649 Jp 49084 
Re 人 20h0- 4C 8F 90 4C 84 幼 4 PD 
20h8- 由 名 85 87 各 OF 90A 
造 一 个 名 人 需 DOSS，535 的 8 2080- 人 E 和 0 如 和 刘 全 丰 [5 
一 YS (系统 ) 档案 。 2098- NM 640 4C 51 h8 EN EN 4C 
4， 按 CALIL-151 渤 入 监 祝 器 2060- 59 FI 上 90 38 4 58 FF 
程式 。 20C8- 4 465 FF 4C FF 好 FF 
、 2000- 利和 有 彰 提 有 前 由 各 
5 ， 键入 以 的 程式 : 2008- 0 WA ceF 03 人 0 87 


20E0- AE 8 人 0 59 CE 03 04 人 
20k8- CC EC [5 04 00 00 00 00 
20fF0- 00 00000000000000 





20F8- 00 
在 PrfoDOS 上 的 DOS35 .53 
.系统 档案 
2000- 的 96 LD8 4496 ， 人 < 
2002- 65 0 STA 403 。 3 的 位 置 及 在 了 3 3 ， 
2004- 有 19 20 LIA 。 寻 20 情 沈 之 下 Page 3 的 地 址 $ 5 


DO~$3S5F 了 的 数值 。 有 玉民 
动 DO8S83'， 3。 

6 程式 键 人 俊 技 键 : 
BSAVBH DOS835 .35。，Ah2 
OOO0O， 了 有 中 4 了 卫 了 有，TSYS 
把 它 储 起 。 
现在 你 已 捧 有 一 个 DOS5， 
5 的 系 芒 程式 ! 


系 议 程式 的 要 求 


怀 先 输入 下 列 的 BASIC 程式 
*。 再 用 指 分 : 


i00 HOME 

1i10 HThAB 3 PRINT "PRES3S 《7》 7T0 
SELECT 00S3.3 SYSTE 

120 HTAB 4:，pPRINT *OR PRESS 《RET 
URN》 SELEET ProD05S， 

130 .HTh8 25:，VThB 22; PRINT "PRE 


8-)， BET 租 
140 IF 和 > 2 THEN PRINT CHRS 
(4) -0053.3” 
1S0 HOME ，HTAB !2，PRINT "Pro00 


SINSTALLED 
SAVE STARTUP 


人 备 在 PrfoDOS 做 仙 区 域 上 。 

在 「 一 矶 两 制 」 的 磁 碟 上， 上 
_TfoDpog 和 DOS5 .3 档案 的 
储存 区 是 差不多 相等 的 ( 见 图 但) ) 
， 要 今 到 [一 页 制 了 磁 矶 有 两 个 


System 一 ProDO8 及 DOS55 
35 ， 便 需要 将 以 下 的 档案 抄 至 卫 
一 roDOS8 匠 域 部 份 : 

1. 了 PRODOS 

2， BASTC.SYSTIT 了 EM 

3 DOS85.35 

4 STARTUP 

1. 及 2 的 档案 可 以 从 其 它 的 roD 
一 US 磁 健 抄 到 ，3. 及 4. 的 档案 在 
本 文 上 面 已 有 介 烛 。 


Boot 楼 过 程 


Bo ot 运 一 片 有 两 个 Bystem 
的 「 一 健 两 制 」 破 奉 其 过 程 简 述 如 
下 
1 如 一 般 ProDOoS 磁 碟 般 ， 在 
载 入 PRODOS 档 突 和 合 。 搁 着 
载 入 BASTC.SYSTEM 档案 
2.， 载 太 BASIC.SYSTEX 化， 
便 会 找 一 个 名 和 饲 
STARTUDBE 的 档案 及 执行 其 内 
3 我 们 的 STARTUDP 程 民有 一 还 
撑 指 尖 ， 如 果 划 进入 也 O 2 
。 5 可 塘 [2 4」 急 。 否 则 便衣 
日程 趟 过 时 仍然 是 FroDe 
ee 
二 到 上。 在 一 般 的 EroDUS 磁 奈 
上 亦 可 以 加 上 D 0S8 5 .5 这 个 贾 


案 。 要 进入 D 08 5 ， 3 时 彼 须 按 


一 DOS3S 。a 
便 可 。 其 工作 示 疮 图 见 罚 全 )。 


针 无 两 头 利 


由 共 系 统 程 式 都 放 在 Pro DO 


一 & 的 区 域 上 。 而 且 估 了 不 少 记 迟 
( 网 表 ( 工 ) ) 。， 4 个 程式 共 估 ?7 
5 BIOCKS ! 估 了 可 供 储存 的 大 
部 份 区 域 ( 一 磁 两 制 」 磁 夸 中 了 
一 roD0S 区 域 估 12 9 BLOCK 
一 8 ) 。 的 确 十 分 熏 人 ， 所 以 在 由 
作 [一 碟 两 制 」 磁 碟 上 时， 在 两 个 DT 
]CNTAL06 


- 08 估 储 存 区 的 比例 上 把 EroD 
-08 的 部 份 加 多 7? 5 BLOCKS 
*。 过 样 便 合 售 到 两 个 D 0 8 的 可 储 
存 原 一样 多 了 。 
但 是 由 於 放 了 过 些 系 和 统 程 式 ， 

今 可 供 储 存 的 区 域 大 集 减 少 * 因 需 
苦果 二 型 的 伐 夸 本 身 的 容量 已 不 是 
太 高 。， 所 以 DISK EUTLL 插 会 很 
快 便 出 现 。 


基 於 过 个 构思 ， 和 要 做 一 个 卫 
-ToD0S 式 的 CPM Syst 
-em 档案 ，。 便 可 以 做 一 片 拥有 3 
个 System 的 磁 矶 了 ! 


/PR000S3.。3 

用 TYPE BLOCKS OOTEFTED 

4PR0D0S 3 人 中 1-JUN-85 
#BASIC,SYSTEMH SYS 21 1-JUN-85 
#+D05S3,3 3Y5 22 1L-JUN-65 
+#STARTUP BA 】 11-JUN-85 
jjINDOHS ,SYSTEN SYS J 11-JUN-85 
#PR0D0S ,外 NU 8h3 1 11-JUN-65 
二 及 P BIN 10 11-NOV-8s 
#Y 作 BIN 】 11-JUN-85 
#TDP BAS 1 1l-3uUN-85 


BLDCKS FREE 20 


BLOCKS USED 254 


才 ( 工 ) 

CREATSD ENDFILE 3UBTYPE 
全 00 NO DATE》 15360 
(066 《NO DATE》 16240 
0:00 《08T5》 10752 
03200 Ti-JUN-85 DO 180 
000 -JUN- 上 5 全 7 
0:00 it-JUN-85 6 的 0127 

7:37 11-JUN-8 人 的 4608 NS3000 

0:06 11-JN-85 93:00 52 8=$1F45 
0:00 11-dUN-85 0 272 


T9T 人 L 也 0CKS: 


280 


困 人 三- 奈 两 制 」 磁 碟 的 简略 
人 下 335 34 55 








\ 


ProDOS 档案 储存 区 DOS35. 3 档案 储 存 区 


(129BLOCKS ) (2728SBcTORS ) 





人 OD 世 乓 口 二 








BIOCK 0，1 ProDOSILoadetr 
BIOCK 2--5 ProD08 CATALOG 
BLOCK 6 ProDOoS BIT MAP 


PRODO8S 
BASIC. SYSTEM 
DO08S5.5 
STARTIP 

x 以 上 4 个 程式 放 在 ProDOo8S 档案 甸 存 芭 




















SRCTOR 0O DOS3 .3 VTOC 
SECTOR1I--7 DO085. 5 CATALOG 





赂 (二 )PROD0S 5 . 5 系统 明 程 


x* 要 从 DO 8S 5 。35 系 入 返回 
BOOT 机 ProDOS 系统 的 方法 : 
1. 天 机 再 开机 Boot ;或 


| proD08 系 丢 2 技 了 玉 了 6 
加 


塘 技 “ 一 Do0S3 .35” 


DOS3S5。5 系 入 








很 多 的 操作 系 入 程 式 ， 都 据 有 
显示 档案 内 容 的 指 邻 ， 例 如 C 了 
M、MS-DO0OS 的 TYPE 了 指令 。 
便 是 用 作 显 示 档 案 的 内 容 之 指令 
把 档案 久 AS CII 硒 早 示 出 来 。 

一 般 的 文本 档案 都 是 以 ASCT 


一 工友 储存 的 。 所 以 TY 指 今 
通常 都 是 用 作 显 示 文 本 档案 之 内 容 
。 现 时 要 昔 取 文本 档案 之 内容， 是 
需要 入 写 一 个 短小 的 首 取 程 式 ， 而 


_ 如果 有 一 个 TYP 卫 指令。 则 工作 便 


简单 得 多 ， 尤 其 是 用 在 络 看 卫 XEC 
式 的 档案 上 时 更 加 有 用 。 


BSAVE TYPE 61F45,E92084 





它 的 使 用 形式 和 与 一 般 的 ProDD 
一 08 指令 一 样 ， 指 今 完 全 形式 坊 


TYPEPE: < 档 案 名 字 >> ，T， 
D ss S 


其 中 “档案 名 字 ”如 果 是 在 次 目录 
内 。 可 以 使 用 道 名 等 PrfoDO8 语 
法 。 JI、D、8 则 分 别 筷 种 类 ( 
Typa) ， 磁 碟 号 ( DIive) 及 
捕 槽 ; Slot ) ，。 之 参数 ， 如 母 需 
机 可 :了 略 去 。 

:TYP: 指令 是 可 以 被 < 卫 
一 8 >> 键 中 断 的 。 同 时 过 个 指 全 
亦 可 人 在 程式 中 使 用 。 一 如 其 它 的 
Erc2308S 指 合 ,是 需要 加 上 C 一 
HRS( 4) 去 钳 动 过 个 指令 。 





相遇 
本 | 
一 有 会计 厂 3 必 
0 天 上 | 
上 AGE 改写 - 
OODOR ATTRO LNRRCLSGNER 玫 
本 
站 下 


程式 是 用 机 械 藻 言 埠 成 的 ,其 
中 包括 有 主 :程式 及 把 其 设 定 在 上 一 


roDOS 内 雨 部 份 。 程 式 输入 后 可 


以 : 


储 在 磁 碟 上 ， 机 把 它 股 定时 ， 只 需 
按 下 : 


一 工 Y 卫 耳 


便 把 TYP 卫 : 指令 驶 定 在 ProDOS 
内 。， 过 有 蛙 你 便 随 时 可 以 用 过 个 指 今 





首先 输入 示 印 程式 的 S 行 卫 一 
ASIC 程 式 ， 它 的 功能 是 造 一 个 艾 
本 档案 .。， 其 内 容 锅 各 SS 行 BASILC 
程式 ， 过 亦 是 一 个 了 X 了 C 式 程式 。 

输入 和 线 自然 村 RUIT 它 ， 过 上 蛙 
示 和 范 程式 会 以 A 忒 YY 过 个 名 字 作 档 
案 名 称 ， 如 果 你 想 看 过 个 档案 之 内 
容 可 以 按 : 


TYBBE : AMY 
便 会 显示 其 内 容 。 其 它 的 档案 亦 可 


以 用 TYEF 了 BE: 指令 看 它 的 ASCTII 
码 内 容 。 





1F45- 
1F47- 
1F4h- 
1f4]- 
!F4- 
IF50- 
1F53- 


LIF54- 


]F59- 


IFSC- 


1F5F- 
1F61- 
1F63- 
1 全- 
1f65- 
1F67- 
1Fb- 
1F6h- 
1F6B- 
1F4(- 
1F60- 
1F4E- 
1F4F- 
IF71- 
1F73- 
1F74- 
1F75- 
1F77- 


8 07 且 


不 范 程 式 


: 指 今 程式 


LIA 村 00 
6TA 。 邹 F94 
STA 。 49EIE 
LIDA 。 #CC 
EL 
JSR 和 5E70 
LOA 。 $8E07 
STR $2018 
LA 各 E08 
8TN 本 2019 
DEC 74 
LI 74 
PHA 
CLC 
DC 村 04 
STN 474 
PHA 
LSR 
LSR 
LSR 
LSR 
PLh 
EDR 村 FF 
AND 垦 07 
5E[ 
Th 
LA 轩 00 
STA 。 48E07 


局 
从 


1 
1 1 
可 浊 & 
， 


AN 


5 
wm 
本 

0 


和 ， 
MY AAA 。 


有 

县 | 中 愉 、 

有 RE 站 

时 册 
必 7 1 


10 攻 = CHRS 《4 
20 PRINT 0#0PEN 人 MY 
30 PRIMT DRITE AlY， 
40 [LIST 

50 PRINT 042CLOSE， 


1F7h- 28 
1F78- 8 ji 

IF7- 40 FC SPL 和 7 
IF7E- 10 59 区 8 BF58, 
4F8I- 和 56BF 5TA 和 9F58,) 
IF84- AN0 00 LDY 如 0 
If 的- 89 00 20 1098 42000 
IF89- 3917 39 (3 
tf68- [8 iMY 

iF8C- 00 F8 SNE 8 
IFBE- 人 03 LI 村 03 
IF90- 174 1 纯 4 
if92- 4 PH 

1F93- 驯 B IF LA 村 FB3 
1F94- 和 TAY 

1F97- 如 PL 

1f98- 。 % 73 STA (973) MY 
1f9h- CN DE 

1f98- 10 F5 SPL 村 F92 
IF9)- 所 08BE 9TA 和 FE08 
1FW- 的 PLA 

Ifhi- 6574 6T6 和 4 
FS- 人 2 0 LDO 禁 00 
IFA5-  B9 B7 IF LA 季 IFB7，y 
IFhg- 20 ED PD  JSR 村 0EI 
IF 人 B- 。 IN 

IFAC-  E0 4 CPf 对 4 
IF 人 E- 90 F5 BEE 有 FF 人 
IF80- 4C00BE JP 4BE00 


Ri 


1f83- 0 的 08 13 33 可 


tf88- 8D 04 09 DO 55 BA AMO C3 
IFfCt- CF 50 CC EC4 1M0 09 
tfCa- E 05 04 L1 CC CC 5 4 
1500- 80 80D 03 9 E 04 CL 08 
F08- 8 80 的 A0O 94 909 00 05 
IFE0- 8 ABCDOCD4 CCE 
IfE8- cf DC BE 08 AL 04 04 
IFr0- 09 00 05 00D DB AC C4 AN 


FF8- 
2000- 
2003-~ 
2000- 
2009- 
200C- 
200E- 
2011- 
2014- 
2010- 
2017-~ 
2016- 
201B- 
2010- 
2 让 ~ 
2022- 
2024- 
2027- 
2028- 
2020- 
202F -~ 
2032- 
2US4- 
20357- 
2038- 
2039- 
203-~ 
203f - 
2042- 
2045- 
2047-~ 


hi 6 中 
8 OF 20 
向 00 中 
8D 10 20 


.AN 05 


80 FF FF 
0)D 9F 20 
F0 0 


8D % 用 


LA 
5 了 
LDA 
STh 
LDX 
LDA 
tp 
且 
广 ( 
人 
3 
BNE 


9 


576 
LD0A 
3TA 
5 
3 了 
LDA 
3TA 
L0h 
5 了 


kLL 、 


RTS 
LDA 
6Th 
L0A 
Th 
LDA 
STA 


DJ 08 AC D3 NS 0 60 有 


BE 
20UF 

4 了 0 
42010 

和 4 

人 FFF 
和 2039F 1 
2016 


中 %E 


$200E 
405 
48E54 
和 04 

4#BE55 
4BE53 
$BE92 
外 39 

4$BE50 
村 20 

$BE51 


$BEAL 
4 了 BEE 
$8BE4D 
$8ECD 
$75 

#BEL 


204A- 
204C- 
204F- 
2051!- 
2054- 
2054- 
2059- 
205C- 
205F- 
2061- 
2064- 


2066- ， 


2069- 
2008- 
204E- 
2070- 
2073- 
2075- 
2078- 
207h- 
2070- 
207F- 
4082- 
20865- 
2067- 
2089- 
208L- 
20 了 E~ 
20BF- 
2094 -~ 
2094- 
2095- 
2097- 
2099- 
2098- 


2095- 


2090- 


必 09 有 


LDA 
5T 
LA 
JSR 
BCS 
L8A 
9TA 
Th 
LA 
Th 


LDA 


3Th 
LDA 
5TA 
LIDA 
39Th 
LDA 
JSR 
BC5 


L38 


DR 
jsR 
LI 
ChP 
BNE 
LI 
LDh 
PH 
LDA 
JSR 
PL 
BER 
cp 
BNE 
5L 
PT 
Ji 


20A0- 54 59 50 45 3 


超 小 型 工具 程式 集 





利用 一 些小 程式 技巧 ， 可 以 帮 
助 你 在 程式 使 用 上 得 到 便利 。 


柱 辑 型 LIST 


过 个 程式 十 分 简短 ， 使 用 法 亦 
士 分 简单 *， 首先 把 过 个 程式 R UN 
*。 接着 载 人 要 编辑 的 程式 ， 吉 时 如 
果 用 LIST 指 今 印 列 有 竺 。， 所 有 的 衬 
格 将 不 会 题 东 出 来 。 而 且 以 3 “ 行 
式 显示 ， 过 时 你 可 以 用 一 般 的 游标 


键 作 篇 辑 ， 例 如 << 卫 SC> 工 、 
\、 开 、 区 等 


按键 回声 


有 一 些 使 用 殖 果 往 容 机 的 用 家 
。 可 能 由 於 链 盘 设计 独特 ， 按 键 时 
没有 太 大 的 反应 感觉 ， 所 以 泊 有 一 
些 像 工 区 ， 雅 各 利 般 的 有 啤 j 
声 回 午 便 好 了， 至 少 它 可 以 提示 你 
已 按 下 键 。 

程式 执行 催 。 你 每 技 一 次 按 俱 
出 一 [ 啤 」 人 莹 回应 。 你 可 以 用 ， 


POKE 46801 


去 更 改 声 镁 ， 或 者 用 : 


PDKE 46816 


去 改 负 时 间 长 靶 。 如 果 你 不 想 再 有 
锦 昔 可 以 按 : 


PDKE 46796，36 
及 用 指 合 


PDKE 46796,234 


售 回 声 再 欢 出 现 。 
编辑 型 工 LSTI 程 式 


10 FORX =0T0O7: READ AN POKE 
768 + %8 媳 XT 

20 DAT 2201 160,209 1 96，76 240 
,253 

30 POKE 54,0 POKE 55,3，CALL 10 
02; POKE 33 ,33 


UNDO 社 式 
100 0 和 = [CHF 人 13 + CHR 14) 
110 PRINT 7$*DPEN UND0Y 
ii20 PRINT 8"NRITE UNDO 
130 PRINT "LOMEN:39144:POKE2050， 
6;FORN=0T9L :=03 (PEEK1205S3Y 
js0):YzsyY+1:NEXTPOKE2049 YY+5 
PRINT 0 人 "CLOSE UNDDY 
END 





救 回 BASIC 
程式 的 UNDO 
你 有 没有 坛 过 因 禹 不 小 心 按 下 


机 了 下 或 卫 卫 指令， 而 引致 App 1 
一 esoft 程式 失去 呢 ? 现在 救星 
来 了 。 

UNDO 程 式 便 是 一 个 用 来 救 加 
BASIC 程式 的 工具 。 程 式 会 在 做 
碟 上 造 一 个 名 需 UNDO 的 文本 档案 
s 过 是 一 个 了 XEC 档 案 。 

每 党 你 的 BASIC 程式 因 需 了 
一 卫 或 五 卫 风 等 因 出 而 失去 的 说。 
便 可 以 用 了 XEC UNDO 把 它 救 回 
永 。 


按 链 回 絮 程式 


100 [和 s “4B6B2《9ED0,9EE9M B6CC3R 
20 外 FFM50hM30C0020 
IF 8 88 00F7 203FFF 40OA 
2 40 CR DO FI 60N 9SE9L:20 8 
3 86 N 300B" 

110 FOR X = 1 TO LEN (ff) 

120 ，POKE 511 + X，ASC (MIDS 人 
0) + 128 

130 NEXT 

140 POKE 72,0 

150 [CALL -144 








你 有 没有 想 过 想 所 有 数字 键 租 
?或 者 你 的 电脑 已 有 数 子 链 。 但 定 
一 般 的 项 果 用 家 都 疫 有 数字 链 盘 ， 
今 次 要 介 胡 的 KEYPAD 程 陈 便 是 
利用 坎 件 ， 做 一 个 数字 键 般 ， 程 式 
通用 於 ApDle 了 + 及 开 e 。 

程式 执行 后 它 会 伟 ” SHIET 
“状态 下 的 某 一 些 键 改 于 如 下 : 


UTIOIP| [9 加 56 
JIKILT TIT2[3 
MEPT TO 


如 条 在 Apple 了 ee 上 使 用 。 则 << 
DELET 卫 > 键 会 现 作 CTRI 一 工 


功能 。 


KEYPAD 程式 是 炖 机 械 证 车 


设计 。， 估 地 址 $ 2 7 5 至 $2DR 
。 国 和合 可 以 : 


83AVE KEYPAD ，A 直 27 儿 本 4 





把 它 储 起 来 。 要 诬 用 到 个 数字 链 程 
了 式 ， 首 先 把 其 载 入 : 


BLDAD REYPAD 





CALL 640 


过 时 你 可 以 党 走 一 下 按 < SHITT 
>--M，<SHIFT > 一 工 等 链 。 


如 果 想 回复 一 般 情 沈 ， 可 按 : 


CALL 651! 


在 示 夭 程 式 雪 行 微 ， 你 或 者 可 
以 对 过 个 程式 的 用 法 有 更 深 的 了 解 


示 第 程式 


PRINT CHR 针 《人 4》 “SRUN KEYPAD。 


10 PRINT "ENTER NUHBER，USIN6 1S. 

UAL KEYBOARD:。 
20 PRINT ， INPUT ss PRINT 
30 If PEEK (639)《 》96 THEN PRINT 


CHR$ 《4) "9RUN KEYP 人 7 


PRINT “ENTER USING NUNERIC PA 


D;， 
《ALL 040 


PRINT ，]JNPUT ”APRLNT 


[CALL 0651 





KEYPAD 主 程式 


(273- 和 6 
4276- [59 中 F 
0276- 00 0 
0274- MB . 
027C- 80 9%F 02 
027F- 的 
0280- 且 9% 
0282- 6 38 
0284- 9 02 
0284- ”65 39 
0286- 4C EA 03 
0288- 9 418 
0280- 85 38 
028F- MP 
029!- 85 39 
0293- 4 负 03 
0296- 20 18 8 
0299- BC 人 F 02 


LA 
[和 
BE 
LDh 
8T 
RTS 
LD 
8T 
LDh 
ST 
了 
LI 


STA 、 


LA 
STA 
JP 
JSR 
8TY 


媳 085 
村 了 
4$02 站 
#80 
402 玫 


时 96 
438 
村 02 
439 
40 了 EN 
用 1 
438 
时 F 
839 
403E 
4FDi8 
402hF 


029C- 


hN0 (OF 
029E- 99 00 02 
02A1-  F0 05 
02h3- 88 

02M4- 10 F8 
02N- 30 03 
02h8- 89 0C0 02 
02hB-  AC. 人 F 02 
02AE- 0 

.0280- 名 届 
0288- BA 引 仍 
0250- 也 Bt 82 8 
02[8- 般 妥 能 ?9 
02D0- ED EA EB E 
0208- 8B DB AC 


L 
〖 0 
有 
3 时 
8 
f F5 
F Al 


LDY 
人 
3 
DY 


_BPL 


8 
LIDA 
LIY 
RTS 


二 


人 


秒 (F 
402D0,Y 
402h8 


#029E 
4028B 
402C0Y 
402 人 F 


wa 


有 和 [0 


卫 也. 用 


1 


妥 且 0 


E9 和 FF0 
全 站 0 


加 





程式 的 囚 入 


一 一 主 程式 ( 工 ) 是 纯 机 械 话 襄 ， 
RE 估 地 址 $AO 0 至 $1480， 程 
「 移 形 换 影 」】 可 以 分 图 案 一 分 式 ( 工 ) 在 办 人 和合 请 以 :. 

储 二 ， 而 今 期 的 水 长 流 」 亦 是 一 
种 版 头 画 面 的 花 巧 届 寻 ， 它 的 表 过 ， 
形式 是 有 如 倒 水 落 杯 一 般 ， 囊 面 融 
好 像 一 焦 大 水 杯 ， 而 图 案 则 像 沪 抽 
的 波 体 ， 由 上 倒 落 三 杯 」 内 ， 图 案 
便 会 由 底 而 上 ， 淹 渐 看 到 整个 图 案 储 在 磁 夸 上 。 

。 程式 ( 1 ) 机 械 证 程式 印 列 的 





BSAVE HSHOW 2 ， 各 用人 0 闻 有 92 





1 5 


竺 行 最 后 数字 是 CHECKEBUM ， 其 
用 法 疼 见 同期 的 | C 蔬 ECKSUM 程 


式 


一 0ft 


了 -- 交 。 


程式 ( & ) 是 堆 助 的 Appb les 
BASIC 程式 ， 壤 入 俊 请 


岂 : 


SAVE H9HOW,B 


储 起 来 。 


各 


式 ( 工 ) 


0A00- 20 2 06918850 85 :13 


0h08- 00 20 51 0 9 09 85 01 4B5 
0810- 20 51 08 1B AS 09 69 30 0 
0h18- 85 09 AN OA 69 00 65 0A 55 
0h20- C6 00 00E8B 6 有 20 65 :2 
0hAc8- 00 66A 008505 Ah 91 :1 
0650- 05 C8 10 FB E6 06 Ch 00 :4E 
0h38- Fo 8 50 CO 8D 52 CO 80D ;8F 
0840- 57 C0 85 09 h9 10 85 06 :ED 
0h4B- 19 00 6 02 9 全 85 04 179 
0650- 60 1 000808 0 人 CA 97 
0h58- 80 00 吕 8 05 8D 00 0 3410 
0h60- 的 0612086M028105 :60 
0h49- 98 89 91 05 5 Ce C8 50 :BE 
0670- 14 00F3 的 2581 05 C8 31h 
0678- c8 941 0 8 88 88 0 1 359 
0h80- 史 FS 3 的 06E9 0485 :18 
0A88- 06 CA 00 08 AD 13 20 87 502 
0890- 08 C8 20 B7 08 MO 12 20 ;65 
oh98- 87 0 1N0 15 20 87 06 20 :77 
0hAA0- BA 0 的 00 的 加 的 84053860 


程式 的 使 用 法 


对 行程 式 ( 2 ) RUN 瓦 S 
0W.B > 它 会 是 动 载 大 主 程式 人 
1 ) 。 也 询问 图 案 画 的 档案 名 称 

程式 会 把 图 案 载 太 也 G R 2 页 

( 地 址 A$4Q00 至 A$5 了 3 
_ 了 ) 而 动 孝 旺 示 则 在 HG 有 R 页 ( 
地 址 A$2000 玫 A$3 卫 了 了 


) 进行 。 


0hA8- 65 0C 08 DO FC 0 0C 200 
0hB0- D0 F8 C6 0 00 98 60 4 :04 
0h88- 09 00 隔 04 0 0 0 AR 327 有 
0 了 0008505800048358 
0hC8- 00 65 00 00 00 00 4 C4 :9 
0hD0- 04 08 的 00 00 4 00 8 5361 
0hD8- 00 00 00 00 4 00 65 00 :CF 
0hE0- 00 00 00 4 44 87 07 00 :03 
0E8- 00 00 53 41 BC 2E E0 00 12E 
IF0- 00 55 [1 04 53 88 00 00 :F3 
0hF8- 屿 村 名 FF000 00 4 3C2 
0800- 80 01 73 95 00 00 4 33 ;00 
0808- 00 00 00 00 00 和 33 00 ;80 
0810- 00 00 00 00 4 34 63 40 :38 
0816- 00 00 00 0 31 00 00 00 57E ， 
0820- 00 00 和 32 00 00 00 00 ;7F 
0828- 00 44 31 00 00 00 00 00 :75 
0B30- 44 32 00 00 00 00 00 53 :59 | 
0839- 吓 67 50 00 00 00 53 05 :60 
08B40- 02 00 84 00 00 56 80 37 :95 ， 
0846- 00 0 00 40005060 901 


0850- 5F 6 0 161 01 6 61 348， 
08B58- 01 45 8101 .67 6 0 的 FA， 


.08B60- 61 01 66861016D 6 01 :FE 
08b- 寻 的 71 64101736 78 ， 
0870- 01 75 人 0077 人 079 320 
0878- 61 01 78 461 41 80 28 00 127 
0860- 04 00 所 00 00 的 0 由 
0889-. 95 01 94 95 01 64 95 01 ?DA : 
,0890- 74 95 00 00 00 00 00 00 109 


1 
) 


0698- 00 00 00 00 00 00 00 00 500 
“0BA0- 00 00.000046243 22:07 
0BN8- 2C 44 24 33 42 38 22 00 360 
0880- 87 08 8 的 有 2 33 了 5 E4 
0B8B8- 22 41 50 50 4 45 20 50 :11! 
03C0- 58 20 本 罗 和 5 4 92 542 
08C8- 20 41 55 53 4 40D 42 4 234 
0800- 0 AMO AM MAMAAMN 的 00 
08D8- AO AMO AN AN NO AM NA 00 
08E0- MAO AO MO hO MO ANNA 00 
08E8- AM 和 和 各 训 有 有 00 
038FO- AM0 0 的 人 人 有 的 1300 
0BfF8e- FF3 FS FFSFSFS FS 98 


CN0- 0000000000000000300 


0C08- 80 80 80 80 80 80 80 80 5100 
0Ct0- 00000000 的 000000 3400 
0C18- 80 8 80 80 80 80 80 80 :00 
0020- 00 00 00 00.00 00 00 00 3400: 
0C29- 680 80 80 80 60 60 80 80 100 
0C30- 00 00 00 00 00 00 00 00 :00 
0C38- 80 80 80 80 80 80 60 80 300 
0C40- 28 28 28 26 26 28 28 28 :40 
:0C48- 了 AM 人 的 币 舟 扫 30 


0C50- 26 28 28 286 28 28 28 28 :40 
0C59- MA8 8 了 了 和 有 则 由 :40 
0C60- 28 28 286 286 28 28 28 28 440 
0C6B- AM Ah 船 和 和 和 角 和 和 角 440 
0C70- 28 28 26 28 28 28 28 2 :40 
0C78- 般 租 和 角 和 -船舶 角 的 有 0 
0C80- 50 50 50 50 50 50 50 50 ;680 
0Cee- 0 D0 00 00 00 00 00 00 ;60 


0C90- 50 50 50 8 
1 


0Ch0- 50 50 50 5 
0che- 0 0 的 DDN 00 ;680 
0CB0- 50 50 50 50 50 50 50 50 :80 
0CBB- D0.00 80-.00 00 00 D0 00 ;8 一 
0CC0- 9% 00 上 4 0 和 208 的 043:71 


0 00 00 ;80 
50 50 50 ,80 


0 的 
0C96- DO 00 00 00 D0 
0 50 


0CCB- 98 91 03 C9 DO F8B EO 04 39 
0C00- CA 30 F64 8D 50 C0 0 52 5205 
0CD8- [50 80 57 0 60 02 04 08 202 
0CE0- 10 20.40 01 02 04 08 10 :8f 
0CE8- 20 40 01 02 04 08 10 20 :7F 
0CF0- 40 01 02 04 08 10 20 4 ， 耳 
OfFe- 0 02 04 08 10 20 40 01 ;80 
0000- 20 24 28 20 30 34 36 3C 3270 
0008- 20 24 20 20 30 34 38 了 3270 
0010- 21 25 29 20 31 35 39 引 176 
0D18B- 21 25 29 20 31 35 39 30 578 
0020- 22 26 24 2E 32 36 了 0 %E :80 
0028- 22 24 26 2E 32 3 纹 王 :的 
0030- 23 27 28 2F 33 37 3 于 488 
0038- 23 27 28 IF 3 37 3 于 :8 
0040- 20 24 26 20 30 34 38 3 370 
0046- 20 24 28 20 30 34 3 了 0 270 
0050- 2 25 29 20 31 35 9 引 78 


0058- 21 25 29 20 31 3 29 3 378 
: 0040- 22 26 262E 32 3 光臣 :90 
0068- 22 20 26 2 32 36 3 SEE 80 
0070- 05 27 28 4 37 38 898 
加 078- 23 27 28 2 33 37 38 于 ;88 : 
0080- 20 24 2 2 3034 33 了 370 


0088- 20 24 2 2 30 54 38 3 3370 
0090- 21 2 旭 20 3 3 妇 3 78 


0098- 21 25 29 20 31 35 39 30 478 
00hM0- 22 26 26 2E 32 3 38 3 :80 
00h8- 22 26 286 2E 32 3 3 工 :80 
00B80- 2 27 28 373F :88 
0088- 23 27 2 和 3 37 38 5F :88 : 
0DC0- AN 00 81 00 5 00 AN B1 :92 
0D08- 00 E 00 AM 了 000C 85 :08 


50 50 50 ;80 
D 


0000- 03 89 00 0 85 04 BC 00 :化 
0008- E 8 00 f 5 03 91 0 3202 
0DE0- C6 02 00 DC 0 05 05 的 : 怀 了 
00E8- 05 05 06 06 060 06 06 06 :外 
0DF0- 06 07 07 07 07 07 07 07 237 
0Df9-.08 06 08 08 08 08 08 09 :41 


0E00- 18 49 00 99 A0 035 98 10 502 
0E08- EE 30 05 9 F4 1 00 FS 3A4 
0f10- 20 00 12 2019 0E 4C 01 226 
0E18- 00 20 和 是 20. 的 OF 有 7 
0E20- 0 85 0 有 同 08 的 0F 60 14 
0E28- 同 00 685 16 8 17 抽 12 297 
0E30- 20 78 05 80 42 85 .16 20 :53 
0E38- 12 00 20 78 05 80 7 85 4| 
IE40- 08 同 4 85 00 09 98 全 5 
0E48- 17 65 0 59 19 80 56 2 :CD 
0E50- 00 26 01 20 00 26 0 的 二 
0E58- 00 18 6 16 8 16 有 0 04 
0E60- 6 17 的 17 26 16 26 147 :9t 
0E68- 16 的 08 6 1 85 16 90 6 
0870- 02 E 47 4 37 0E 18 .60 208 
0E79- [9 BR BO 08 59 30 90 04 548 
0E80- 29 OF 18 60 38 60 且 416 303 
0E88- 20 80 0E 15 17 0 00 31 36 
0E90- t6 E6 18 00 02 E6 19 60 347 
0E98- 20 28 0E 20 8 0E CAR 4 :20 
0OEA0O- 89 0 20 286 儿 听 F4 A2 41 
0EA8- 49 20 AM 3 浊 4 和 0 0 让 6 
人 FEBO- 07 OF 4 了 0 2007 媳 :90 
0E88- 90 EI 20 00 0F 4 8 00 :CA 
0ECO- 有 8 8 12 Ch A0 21 84 DC 
0ECe- 10 20 41 ff 4 89 00 后 0 
05IM0- 12 09 8D F0O D2 59 A 0 :8 
0ED8- CE MAO 00 84 18 A0 08 84 :36 
0EE0- 19 AO 1F 94 10 A0 AC 84 45 
0EE8- 12 CR 20 11 全 90 01 277 
0EF0- 4 89 00 同 12 C9 8D 00 :EE 
0EF8- DC 20 27 儿 4 89 0 ASEB 
If00- 12 c9 8D FO F4 00 DA AS 98 


0F08- .12 C9 80 F0 16 60 00 84 496 


OF10- 10 80 00 02 EC9 FO 3:FD 
0Fl8- 0E Cj 12 F0 0 20 抒 全 29 
IfF20- ct 10 0ED 4 2 00 [CA 和 2 


OFf28- 186 人 M004C 邱 人 EN 和 的 2037 


If3- 的 10HW0845C00073:ED 
0F38- M0 00 84 SC 20 12 0 20 :IF 
Of40- 28 05 90 04 M4 5C F0 17 51 
0F48- 56 10 F0 08 20 73 OF [9.109 
0F50- FF F0 ES C9 00 D0 08 4 319 
0F58- SC 30 C9 MO FF 30 08 航 3 
(Fi0- FF 20 80 0F 20 89 OF CA ;3 
(Fi9g- 的 00 的 18 9 08 85 19 195 
0F70- 4 9 0 20 8 0 后 12 :7 
IF78- 38 E9 人 4 80 0E 42 00 :57 
0FB0- 2 M2 08 2 有 2 40 25 人 2 082 
IF88- 77 2 A2 83 80 A0 OF F0 :24 
0F90- 04 20 ED FD E8 D0 F5 460 3 
0F98- 20 68C OF 和 在 4 85 0F ;82 
0FNO- 8 84 C2 CC CF Ci 54 00 1F3 
IFh8- 680 84 C2 13 CL D4 [5 00 102 
0FBO- [1 03 [0 59 C4 03 04 [1 336 
IF88- C0 D0 AC 3 86 AC 54 831 :F3 
0FC0- AC C1 AM B3 52 8 AC_ 人 0 ;8 
IFc6- cf 81 87 90 00 [3 CD C4 415 
FMN- MW 0 9 cE 04 Cl 06 00 :87 
Fl6- CE 05 CD CS 02 [9 (3 A0 133 
IFE0- CF 0 5 02 c CC CF 07 574 
OFE8- 00 0 Cl 92 Cl CD C5 04 :的 
IfF0- 5 02 RD 的 IO F 5D 3F7 
1000- 阳 50 耻 99 0 SF 8950 :F9 
1008- 38 99 00 38 9 50 37 99 86 


1010- 00 1 89 90 3 和 9 005 20F 
1018- 鸡 50 F 99 DO02F 89 50 :09 
1020- 28 99 00 28 89 50 27 99 :88 
1028- 10 27 时 50 23 99 00 23 :全 
1030- 卜 00 王 妇 3 于 上 昌 00:78 
1038- 3 99 50 38 89 00 30 99 :8 


1040- 50 37 B9 00.32 99 50 33 55E 
1048- 8 00 多 99 50 2F 89 00 3 
1050- 2 93 50 28 89 D0 26 99 386 


1058- 90 27 89 00 22 93 50 23 :外 
1040- 89 50 巧 99 00 3 89 50 :F7 
1068- 4 99 00 3 89 50 5%6 9 85 
1070- 00 3 了 50 399 00 32 :0 
1078- 罗 502 99 002E 的 3007 
1080- 2 99 00 26 89 30 26 99 185 
1088- 00 26 89 30 22 993 00 22 3 
1090- 了 鸭 0039%50 瑟 8 00376 
1098- 39 99 50 3 89 0 呈 99 83 
10AN0- 50 36 89 00 31 99 50 32 158 


10h8- 89 00 20 9%9 50 和 99 00 :56 
1080- 2? 99 50 2 89 00 25 99 :95 
1088- 90 26 史 00 21 993 50 22 ;28 
1000- 昌 0 3 99 00 3 89 50 :5 
10C6- 39 99 00 39 89 50 35 99 ;82 
1000- M0 3 的 503 和 990031309 


1008- 9 0 20 99 0X0 20 89 50 :05 
10E0- 29? 99 00 29 89 50 25 99 ;82 
10E8- 00 25 89 50 21 99 00 21 :9 
10F0- 89 00 3 99 50 30 8B9 00 :74 
!0F8- 9 .99 50 了 有 003493 ;80 
1100- 50 35 89 90 30 99 50.31 :58 
1108- 89 00 20 993 50 20 归 9 00 54 
1110- 2899 50 29 9 00 2499 :80 
1118- 90 25 89 00 20 99 50 21 :28 
1120- 50 了 9 SB SO FS 
1128- 38 99 00 396 89 50 34 99 : 相 F 
1130- 00 34 归 50 3099 0030 3:06 
1138- 的 502099 0208950303 
1140- 2 99 00 28 89 50 24 99 :7F 
1148- 00 24 罗 9 50 20 99 0 20 3 人 
1130- 的 和 于 中 503 隐 人 26 
1158- 38 99 50 38 89 AM8 37 99 :90 
100- 50 34 89 8 3 99 50 30 331 
1148- 89 有 革 和 502089 66 3 06 
1170- 2 9 5028 了 MAM2799 :5 
ll78- 350 24 89 9 23 99 50 20 301 
1180- 时 2 于 中 ASFB9 28 8 
li8e- 38 99 AM8 38 89 28 37 99 :4 
J170- 有 37 了 9 2285 人 33 467 


1198- 89 286 2F 99 A8 2F 89 28 3241 
11hM0- 238 9 AM2989282799 338 
11A8- M 27 B89 28 23 99 hN9 23 37 
il80- 归 M 王 99 28 3F 89 人 8 400 
1188- 3 39 2 泪 隐 AS 56 
il0- 2 37 89 6 22 9268:E6 
le8- 中 12 399 .2862F 89 Ah :E0 
11M0- 2 和 292B889A8 2099 936 
11D8- 28 27 89 Mg 22 99 28 23 :8 
1it0- 89 28993A SEE 有 9 26:7F 
1tE86- SN 99 A8 3 89 28 3 99 365 
ItF0- he 3 了 鸭 283299 1 32 3264 
ltF8- 89 28 2 99 MB 2E 89 28 ;5F 
1200- 2 99 AM 2NB9 2826099 435 
1208- 由 260 有 归 262299h8 22334. 
1210- MB399 28 王 89 Ah :FE 
1218- 99 99 28 3 89 AM8 35 99 46 
1]220- 28 36 89 AMB 3199 28 32 3:E3 
1228- 389 6 20 99 28 2E 89 8 ;中 
1230- 29 99 28 2 89 hM8 25 99 35 
1238- 28 26 89 MB 21 993 28 22 :833 
1240- 了 283099h83089 283:70 
1248- 39 99 NB 393 89 28 35 99 142 
1250- 由 3 89 2831993 Ah 31 3 
123J8- 3839 28 20 99 Ah8 20 89 28 :50 
1240- 29 99 hn 23 89 28 25 99 :32 
1248- M 25 89 28 21 99 由 21 :3! 
1270- 89.68 了 5 99 28 30 99 A8 :FC 
1278- 88 99 28 39 8B9 hB 34 99 :60 
1280- 2 35 的 hs099 2831 5 E0 
1288- 89 MA 20 99 26 20 99 hMB :DC 
，1290- 28 99 28 29 89 M8 24 99 ;30 


1298- 28 25 8 h8 20 99 28 21 80 
12A0- 罗 28399ASB3 283478 
12h6- 3 99 8 38 89 28 34 99 55 
1280- AR 34 89 26 30 99 MB 30 545E 
1289- 8 26 20 99 M8 2C 89 28 ;58 
12C0- 28 99 AM 28 89 28 24 99 ;2F 
12[C8- hg 24 89 28 20 99 hM8 20 :2E 
1200- 89 80 9 263C89 80 :AE 


1208- 8 9%9 28 36 邓 80 37 99 30 
1250- 28 34 罗 680 33 99 28 30 :89 
1256- 89 80 2F.4949 286 2C 99 80 :8E 
12F0- 2 99 旭 2689802799 3530 


1]2F8- 26 24 鸣 80 2399 28 20 :89 
1300- 89 00 下 99 80 了 FF 89 00 09 
!308- 38 99 80 38 89 00 37 99 18 
1J10- 80 57 8 00 3 993 680 33 5EF 
1318- 89 00 ff 99 80 2F 89 00 :9 
1520- 28 和 5 80 28 89 00 27 99 :E8 
13528- 80 27 89 00 23 99 80 235 :BF 
1530- 8 80 史 003F 的 60 388 
1338- 兴 99 00 3 89 80 36 99 314 
1340- 00 37 8 80 32 99 00 33 26 
1348- 89 80 2 9 00 和 F 89 80 48 
1450- 26 99 00 2B8 89 680 26 99 5:E6 
1358- 00 27 89 80 22 99 00 23 :3E 
1300- 归 00 瑟 归 9803 8900 307 
1348- 3 99 8 3 89 00 36 99 3215 
1370- 80 36 89 00 32 99 80 32 旗 [ 


1378- 的 002 99 802E 59 005E7 


1380- 2 人 99 80 2 89 00 26 99 :E5 


1388- 80 26 有 00 2299 80 22 ;8 
1390- 89 80 30 99 00 了 EB9 80 586 
1398- 9 99 00. 3 89 80 5 99 :13 
13H0- 00 3 89 80 351 99 00 32 4608 
1368- 允 80209002 89 80 3566 


程式 ( 2 ) 


100 
110 
120 
130 


140 


INPUT "ENTER THEN PICTURE NA 
用 ， 5 

POKE - 16297,0，POKE - 162 
99 0 

POKE - 16304,0:， POKE - 163 
02,0 

PRINT CHR$ 《4)*BLOAD Fe 和 
$4000: 

PRINT CHR4 《4)*BLOAD HSHDW， 
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1380- 29 99 00 2 隐 80 2599 3E3 
1388- 00 26 的 80 21 99 00 22 :38 
13C0- 89 00 30 99 80 30 89 00 ;05 


13C8- 39 99 的 3 89 00 下 99 412 
13)0- 8 5 了 归 00 3 99 80 3 5 
1308- 89 00 20 99 80 20 89 00 :E5 
13E0- 29 99 80 29 B9 00 25 99 5E2 
13E8- 80 25 99 00 21 9 80 21 :89 
13F0- 89 80 了 和 00 引 的 80364 
13F8- 38 99 00 四 的 的 349% 510 
1400- 0 3 89 80 30993 00 3 308 
1408- 89 80 20 99 00 20 99 80 164 
1410- 28 99 00 29 89 80 24 99 3E0 
1418- 00 人 89 80 20 99 00 21 38 
1420- 89 00 5 史 80YB9 00 :05 
1428- s8 99 80 3 了 9 0034 99 :0F 
1430- 80 34 89 00 30 99 80 50 :6 
1438- 8 00 20 99 80 20 区 00 :3 
1440- 28 99 60 28 89 00 24 99 ;DF 
1448- 60 24 89 00 20 99 80 20 ,86 
1450- 860 05 20 8 44 的 用 全 05 
1438- 3 20 00 0 有 00 的 02 498 
1440~- 的 05 全 02 的 0E 1 3489 
1408- 0 02 47 66 04 24 58 :08 
1470- 30 08 各 00 02 59 84f0 527 
1478- 05 9 91 F0 01 460 4 42 3 瑟 
1480- 0 


1 
1590 POKE - 103000 
160 (CALL 2560 
170 FOR Is 1T01000: NEIT 
180 EXT 


DO0S3 .3 BOOT 机 本 和 


里 
开 


年 


@ 必 sa 





过 是 一 个 短 的 Applesoft 
BASIC 程式 ， 它 会 把 一 行文 本 储 入 “ Boot 机 文本 ”， 字 数 和 人 需 4 4 
在 一 片 正 常 的 D 0 8 5， 人 磁 奉 上 或 以 下 。， 如 果 你 办 人 多 於 4 0 字 ， 
s 当 了 Boot 机 上 时 它 会 被 先是 示 出 来 它 伟 要 求 你 再 次 输入 。 当 夫人 俊 ， 


* 搂 着 把 HELILO 程式 载 人 。 它 会 自动 把 文本 放 在 玫 面 的 中 间 ， 
过 蛙 你 共 要 把 要 加 文本 的 D 0 ” 
。5 磁 碟 放 入 磁 碟 机 内 ， 按 下 <R 
使 用 程式 


一 eturn> 键 ， 则 不 用 一 会 史 。 
圭 片 DO 8 5 .5 磁 矶 便 拥有 了 
当 程 式 执 行 时 。， 它 合 等 候 你 键 oot 机 显示 诅 文 本 之 能 力 。 
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未 人 程式 


100 


110 


120 


130 


140 
1 


1 的 


链 入 Applesoft BASIC 





HOME ， NTAB .410，PRINT ”BO07 
MESSAGE MAKER'， PRINT ， PRINT 
"INPUT YOUR 浅 $SSAGE USIN6 40 
CHARACTERS 0OR LES9，THE 让 
85ABE WILL AUTONATICALLY BE 
CENTERED, PRINT INVERSE 
;PRINT SPC( 40) PRINT PRINT 
SPE( 40)， NOR 人 L 
VThAB 221 PRINT “4 APPLE US 
ER WONTHLY VOL.5 NO 26 4 
1 VTAB 8: HTAB 1 【NPUT 2 
$Lzs LEN 人 4) IFL 》40 0R 
LI THEN 100 
IFL《39 THEN FOR X = 1 7T0 
INT ((40 - L) 7 2)3 人 =” 
+ 内 NEXT X VTAB 68: HTAB 
1 PRINT 个 
VTAB 13:， HTAB 【INVERSE ，PRINT 
” TNSERT TAR6ET DISK AND PR 
ESS RETURN "y。 NORMAL 6ET 
NS IF ASC (人 4)《 >》13 THEN 
130 
PRINT ，PRINT ，60$UB 200 
POKE 4103 32 POKE 4104 ,179， 
POKE 4105;8; FOR X = 4275 T0 
4294:， READ Y POKE X ,YNEXT 
) 
FOR XY = 41417040 IF LEN ( 
) = >X THEN POKE X + 4297 


了 DOT.， MESSAGE 


程式 印 列 。 再 用 : 


SAVE BOOT ,MESSAGB 卫 
把 它 包 在 磁 碟 上 。 























1 ASC 《 N0 人 人 + 128 
: 60T0 180 
POKE X + 4297,160 
NEXT X 
POKE 788,2，608U8 220，PRINT 
; PRINT "BO00T 陛 SSASE SAVED， 
“上 人 D 
FoR ! = 768 TD0 796， READ YI POKE 
X YNEXT 
DATA 149，3 11600832，217， 396 
1 96 11000253 10180010， 
00596 0012399210 
(CALL 748:， IF PEEK (789) as 1 
如 TNEN PRINT ， PRINT 2UNERT 
TE PROTECT DISK AND PRESS 有 
KEY SET AS PRINT 6070 
220 
IF PEEK (789) = 64 THEN PRINT 
， PRINT "FIX DISK DRIVE ERRO 
R AND PRESS 有 KEY BET A， 
PRINT ;6070 220 
RETURN 
DATA 32,86,252,142,0;189,202 
,8,157,128,5,232,224 ,40, 206 ， 
245，165，43，74196 


甸 08? 
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这 是 一 个 可 以 让 用 户 即 时 看 到 
禾 数 内 容 的 工具 程 陈 。 
很 多 时 在 窟 BASIC 程式 上 时。 
都 会 有 些 少 钳 ， 或 者 你 胖 闻 见 到 : 
OVEREFLOW ERROR IJ 
2600 
或 : 
BAD SUBSCRIPT RRRO 
-RIN 5826 


等 等 。 当 你 检查 设 行 程式 时 。， 便 六 
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有 程式 显示 。 如 : 
526 AB=(X+2) 
(YY2Z 二 ASI) 


如 果 你 需要 找 出 错 避 之 处 。 便 要 按 
PRINT 文 。 了 RINIT YY2 等 
。 看 看 每 一 个 婉 数 的 内 容 ，。 十 分 厅 
烦 。 

「ProDOS 要 数 印 列 」 程 元 
便 是 用 作 印 列 过 些 履 数 之 用 的 。 程 
式 是 用 机 械 莫言 写成 的 。 估 地 址 $ 
7DOO 至 $758， 输 和 信和 后 可 


以 : BLOAD 工 ISTHER 


BSAV 了 LISTR，A 和 $7 载 和 电脑， 在 载 人 前 可 先 按 下 蔚 

DOO。，EHH7EF583 TIMEM: ss OOo0， 设 定 最 珊 明 
储存 起 来 。 习 地 址 ， 当 有 需要 印 列 时 只 需 按 ; 

要 使 用 的 时 候 *， 可 先 把 它 用 括 CALLDs52000 
兮 : 它 便 会 印 出 殉 数 的 值 。 





ProDOS 村 数 印 列 程式 

7038- .20857E JS 
7000- 207F7 JSR 47D7F 7D38-  E4 04 [pX 
7003- 有 00 LDA 示 00 7030- 00 咱 BNE 
7005- 85 04 STN 404 793F- 20137F JSR 
7007- 204170 SR 47511 7042- 的 02. LDY 
7006-  E6 04 INC  $04 7044- 的 地 LIDX 
7D0C- 20117 JSR 4$7011 7046-  F0 4 BEQ 
7D0F-  E 04 INC 404 7048- [8 DEX 
7D1i- AM9 虹 LDOA 48D 7149-  F0 0 BE 97058 
7D13- 20B 和 JSR 和 儿 0EI 7]43- ”相交 LIA 。 #A5 
7014- 有 的 LDA 有 8 704D- 20E FI JSR SFIED 
7)18- 65 EC STRA 。 拒 ( 7150- “2048 F9 JSR 轩 949 
7016- 有 合 的 LDA 和 69 7053- 20 547E SR 47EE4 
7D1C- 00 09 BNE 47027 7054- 00 公 RNE 和 7DLE 
7IDtE- 有 9 07 LDA 4#07 70589- 则 生 LDA 村 人 4 
7020- 18 [LC 7D5A- 20 ED FI JSR 村 0E0 
7021- 嫩 ADC 力 B 7050- 20hM7E JSR 37EhD 
7023- 90 02 BCC 47027 7060- 208BC7E JSR 4758C 
7025- EEC INC 托 [ 7063~ 00 8B9 8NE 475] 
7027-. 65 EB STA 。 转 8 7I45- 20 46 F9 JSR 图 948 
7029- 的 LDA 4 7048- 由 EC LIY 了 EC 
7028- [5 如 CHpP 6C 7D68- 全 EB 1LDA 4E8 
7020- 90 09 BCC  $7038 7D6C- 1 [Lf 
7D2F-  F00l BEQ 47032 7060- 好 9 02 ADC 寂 02. 
7031!- 的 RTS 70 媳 -9001 BCC 和 7072 
7032- 有 且 EB LIA 。 力 B 7D71- [8 INY 
7034- [5 6 CNMP 。 $68 7072- 20F9 区 JSR 轩 WF9 
7034- ， B0 F9 BCS 47031 7075- 202E ED JSR 拭 D2F 
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7078- 
707h- 
707)- 
707F- 
7081- 
7083- 
7D84- 
7088- 
70838- 
7060- 
7D8F- 
7092- 
7094- 
7094- 
7098- 
719h- 
709C- 
70590- 
709F- 
70A1L- 
7DhA3- 
7Dh5- 
7047- 
7I49- 
7048- 
70AD- 
7IAE- 
7080- 
7082- 
7084- 
7084- 
7188- 
70BA- 
708B- 
7DB0- 
70BF- 
70C2- 
7DC4- 
70C4- 
7DC8- 


h9 抑 
20 ED P 
10 5%F 
妥 0 
65 04 
20 60 刀 
E 04 
20 8 刀 
E6 0 
h9 罗 


20 ED FI 


司 6 
85 上 B 
hb 
)0 08 
A5 上 


45 四 
65 EB 。 
h5 EE 
65 EC 
85 EC 
55 引 
F0 03 
90 07 


A5 8 
55 6 
8B0 8? 
hA0 0 
Bl 5B 
85 纤 


8 5E8 
85 5 
20 FB 半 
E4 04 
00 04 
84 F 
84 F8 


1 


BE 
LDA 
3T6 
JSR 
IN 
JSR 
JNL 
LDA 
JSR 
LDA 
3TA 
LIh 
8BNE 
LIA 
LL 


AD 
5TN 


LIh 


.hDL 


8TA 
ci 
BE 


RECC 


RT5 
LDA 
CIP 
防 3 
EDY 
LDA 
5TN 
DY 


Th 
JoR 
《7 
SNE 
STY 
5TY 


4$8D 


拖 DED 


人 7D 储 
未 00 
401 
$7D81 
04 
4708 
404 

# 和 8 
针 0ED 
4608 
4E8 
46 
470hA5 
力 D 


4 
必 8 
4 
4 
和 
4 外 
下 7 了 外 


有 7084 


3 

4 
47D60 
禁 03 

( 红 B) 
4EE 


( 耗 8) 
4 
47EFB 

和 04 
$7098 
4FC 

条 


7DCA- 
7 了 DCL- 


7DCE- . 


7000- 
700D1- 


7502- 


7003- 
7009- 
7007- 
7008- 
7DDA- 
70DL- 
7DDE- 
7 站 0- 
7 了 1-~ 
7 站 2- 
7DE4- 
7DE4-~ 
7DE8- 
7DEN- 
7DEC- 
7DEF- 
7DF1- 
7DF3- 


了 0f6- 


7DF9- 
7Df9- 
门 F8- 
7DFE- 
由 00- 
站 03- 
7E05- 


7E07-. 


7E09- 
由 0A- 
7E0C- 
让 IE- 
站 10- 
由 11- 
站 13- 


5TY 
LI1Y 
LDA 
了 有 
INY 
LINY 
[DA 
8Th 
DE; 
BNE 
5TX 
5TX 
STX 
TYh 
SEL 
ADL 
5STA 
上 DA 
ADL 
587 
JSR 
LIN 
BE 
JSR 
8 


BE 
JSR 
BNE 
JSR 
LIY 


LDA 
IMY 
[py 
BCC 


LIY 


TN/ 
CRX 
BLL 


4 
肯 04 
(E8) 


(#EB) 
秆 9 


47DDi 
4FF 
4FE 
扩 J 


外 
4EB 
林 00 
拓 EC 
氏 [ 
47F13 
404 
470F8 
47E25 
47E03 


由 的 
芋 74 
由 03 
$7566 
4FD 
4FE 
4 


引用 
4 人 下 
#00 


4 
$7E1E 


由 415- 
疙 17- 
由 18- 
7 人 1- 
站 1 
下 全 ~ 
放 20- 
汇 22- 
7E24- 
由 27- 
由 29~ 
了 20-~ 
由 2F- 
7E31-~ 
由 3- 
由 36- 
内 39- 
儿 38- 
由 汪 - 
放 3F- 
7E41- 
745- 
由 45- 
7E47- 
几 特 - 
4- 
站 如- 
7E4F- 
帮 32- 
/94-~ 
上 让 57- 
由 38- 
几 59- 
由 53- 
形 JID- 
7 f- 
7E61- 
7E63- 
了 600- 
疙 68- 


LD; 
CLC 
人 DC 
CNMP 
8BLS5 
5TY 
5TX 
3TA 
J 必 P 
LA 
JP 
JSR 
LIDA 
LDY 


JP 


JSR 


和 00 


持 01 
针 [ 
/人 27 
轩 ] 


儿 

47IEC 
转 L 

70A7 
$ 站 并 
允 FEB 

4E 
本 AF9 
儿 D2 
#80 
二 只 ] 


村 05 
#B 
7547 
工 [ 
4 


和 有 4 
才 D 
省 /7 
仁 00 
多 7 有 


碟 8 
4E8 
0 
f#E 
4E[ 
47EBF 
和 5 
钙 0E7 
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由 48- 
7E- 
下 70- 
区 六 3- 
7E74- 
了 14- 
由 78- 
儿 78- 
JE 
7 由- 
丰 站 -~ 
泡 81- 
7E84- 
由 640- 
儿 89- 
7E8B-~ 
由 80~ 
几 扑 -~ 
由 92- 
开 94 ~ 
797- 
汗 了 -~ 
/38- 
下 9]- 
7EhMO- 
7EAZ- 
玫 的 - 
7EA7- 
下 AAA- 
光 和 有- 
儿 征 - 
7E81- 
7t82- 
7E84- 
7E86- 
7E87-~ 
小 8B9- 
783- 
仆 BC- 
外 是 - 


20 7f 下 


的 00 


20 上 4 疙 
18 

和 导 

69 02 

390 02 
E EL 
65B 
00 

的 AhB 

20 ED f 
A5 有 

20 22 7F 
A5 了 8 

F0 18 

A9 ALC 

20 ED FI 
1 扑 

20 22 站 
的 

F0 0 

站 入 

20 ED 和 


的 


20 422 外 
9 A9 

20 ED 和 
4 4B f9 
B1 Ek 

85 小 

[8 ， 

8B1 E8 

85 02 

C9 

8 EB 

69 03 

的 

20 4B6 上 9 
9 有 2 


JSR 
[0Y 
了 3 


LA 
AD 
8 
IN 
8T 有 
RT5 
上 0 


JSR 


LDA 
JSR 
LDA 
及 & 
LA 
JSR 
LDA 
JSR 
LI 
了 El 
上 DA 
JSR 
LDA 
JSR 
LA 
JSR 
村 hpP 


蕊 0 


3T 
TNY 
LI 
Th 
TY 
LDA 
5T6 
RTS 
USR 
LA 


(对 有 
03 


948 
有 


7EC1- 
正 呈 4 
由 人 6- 
由 58- 
7ECA-~ 
汪 5C-~ 
让 必 - 
耻 ED01- 
沁 3- 
几 D06-~ 
7ED7- 
7ED08- 
由 DA- 
让 叱 - 
形 中 ~ 
儿 E1- 
7EE4- 
7EEu- 
7EE8- 
7EE9- 


-7EB~. 


/EDI-~ 
7 让 -~ 
屹 F0- 
由 FS- 
站 Fo-~ 
下 的 
站 FB- 
几 F0- 
7EFfF- 
-站 01- 
于 0 
于 04- 
站 040- 
站 08- 
于 人- 
开 站 - 
儿 0- 
玫 驻 - 
7 站 10- 


20 ED 
ho 引 

0 12 

hA0 00 

Bi 0 

09 80 

20 ED FD 
全 Fi 

20 Ah F 
48 

吕 

00 Fl 

A9 2 

20 ED FI 
自 如 

4C ED FI 
Bl E8 

85 和 E 
C8 

3i 恒 
85 吓 

h2 90 

18 

20 9 E3 
20 外 名 
由 8 

4 ED FD 
2 00 
h0 0l 
BEB 

10 01 
E8 

49 80 
6 41 

88 

EL 5 

10 0] 

te 

09 昌 
85 00 


JSR 
LDX 
8EE 
LDY 
LA 
0ORA 
JSR 
L3h 
djSR 
INY 
DEX 
BNE 


JSR . 


LDA 
JIp 
LN 
8Th 
INY 
LIDA 
5T 
LI 
[FL 
JSR 
Js 
LI 


1 


LDX 
LIY 
1L6 
BFL 
[人 
DR 
3T6 
站 EY 
LDA 
BPL 
]N' 
0RA 
3Th 


秆 )D 

4 引 

让 DA 
村 00 
(402) 
#60 

外 DD 
条/ 


休 Ch8 


和 75ECN 
竺 和 2 

插 DE0 
460 

针 DED 
($EB) 
$9E 


(EB) MY 
49f 
条 90 


4E898 
全 D2F 
销 8 
FDED 
村 00 

末 01 
(5EB) 
47F04 


打 和 80 
40| 


(二 DB}，Y 
47F0E 


村 B0 
$00 
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下 12- 
站 3~ 
下 1 
放 18- 
下 1 人- 
F10~ 
开 ]f 
并 22- 
半 24- 
人 26- 
并 28- 
7F2h- 
站 2C- 
7 外 - 
站 媳 - 
于 30- 
开 32- 
站 34- 
下 36- 
站 38- 
73h- 
7FSC- 
由 30- 
下 寻 ~ 
人 40- 
并 42- 
于 44- 
几 40- 
7F47- 
7F48- 
帮 49-~ 
下 和 ~ 
站 4- 
站 四 ~ 
7f30- 
站 2= 
由 59- 
7F 96- 


4 ED fJ 


RIS 
LI 
JSR 
LA 
djSR 
LA 
JP 
LIY 
LDX 


ChP 。 


BCC 
LIY 
LI 
INY 
SEC 
SB 
Chp 
BCS 
fp 
BCC 
LDX 
IN 
SEC 
SB 
cip 
BCS 
0RN 
PH 
TXh 
PHA 


TYA 


了 ER 
JSR 
PLAN 
BE 
]SR 
PLA 
JP 


47F 村 
4 和 FJED 


$1F 95 
村 DED 


轩 呈 1 





我 们 都 知道 ， 昔 果 在 融 解 像 天 
面 的 解像度 是 2 8O0Xx1LI92& 若 ， 
但 是 如 何 施 屡 一 点 小 技巧 分 间 果 在 
吉方 面 的 解像力 能 达到 8 6 9 x 工 
9 已 奸 ， 那 融 是 本 文 所 要 提 及 的 。 

当然 具备 了 某 些 特点 ， 可 能 亦 
要 囊 失 某 些 方面 的 优点 。 过 也 束 是 
说 我 们 要 提高 加 倍 音 全 的 解 像 能 力 
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时 ， 在 和 给 图 时 我 们 只 能 用 黑白 两 种 
色调 。， 首 先 我 们 最 好 能 先 及 解 一 下 
苦果 的 营 幕 状况 ， 葛 果 的 答 幕 是 被 
分 成 4 0 行文 字 的 ， 而 每 一 个 字符 
是 由 7 点 ( 润 )XxX8 点 ( 珊 ) 所 组 
成 。 而 每 个 横 列 艇 幕 的 数 惑 是 
x40=280 点 ( 寅 )。 每 ?7 个 
点 需 一 组 。 即 一 个 byte， 如 果 某 


个 b i t 是 0。 那 刻 在 那 - 点 的 位 
置 上 便 是 黑色 ，。 如 果 是 ! 的 应 ， 便 
是 一 个 亮点 ， 而 此 亮 黑 可 以 是 6 种 
颜色 中 的 某 一 种 ， 而 此 色 则 要 视 它 
的 位 置 在 那 夷 。 我 们 知道 行 需 0 时 
， 闽 果 会 歼 成 柴 色 ( V ) 和 蓝 色 人 
B ) 。 如 果 是 1 时 ，。 则 会 产生 乏 色 
( G ) ， 和 币 色 ( 及 ) ， 但 我 向 要 
注意 一 点， 它 从 事实 上 是 显示 在 同 
一 点 上 ， 而 在 竹 幕 上 ， 我 们 可 以 毅 
察 到 ， 它 们 只 是 薄 排 出 现 。 不 妨 将 
程式 一 链 入 青果 中 。 执 行 后 我 们 便 
不 北上 膀 解 它们 在 艺 幕 上 的 殉 化 
在 程式 一 执行 合 。 我 们 不 妨 青 
将 行 号 2 0 的 C= 2 改 需 C= 5; 


行 号 6 0 及 80 的 8 一 CC 分别 改 优 


1 0-- CC， 如 此 我 们 就 可 以 看 出 闽 
果 会 有 两 种 日 色 而 且 是 不 一 栋 的 。 
从 此 我 全 亦 可 得 知 ， 中 然 在 同一 点 















It0 HG6R 

20Rz= 64:P = 7048 = 70:PI4 = 0.7 
6954 

305s11/60 

40 FORAzs0TOPI4STEP 9 

50X=R#k [Cs (AIY=RE SIN 
[有 ) 

6o0 P1 =pPt+Jip2=P-Xsol= Qt+ 






人 芷 PE- INT (PI《 .5 THEN [ 
= 了 

90 HCOLORe〔 

100 HPLOT Pt 8t HPLOT 中 92 

110 HCOLOR= 10 - 













上 ， 但 我 们 可 以 泪 用 世 COLOR = 
3 或 = 7 去 显示 。 以 过 到 不 同 的 点 

程式 二 集 一 个 和 给 图 的 程式 。 设 
程式 能 不 理 给 出 560Xx192 点 
的 图 形 。 此 仅 是 供给 各 用 家 做 个 俊 
考 。， 和 当然 各 位 亦 不 妨 多 用 巧 轧 ， 讽 
姑 出 一 些 更 完美 的 5 L24LX 工 9za 
贴 的 图 案 出 来 。 






















100 HE6R 
1l0 Cs 2? 

120 FORANs 1 T010 
130 HCOLOR=《 

140 HPLOT 0,0 

150 HCOLOR= 8 -上 
160 HpLOT 0 

1705 =8-( 

180 FOR # = 1 T0 1000， NEXT 
190 NEXT 















120 HPLOT P2,81，HPLOT Pp2,02 
130 Ps=P+yypazP-yY8s0+ 


4 
1404 = 7 
l0 IFPB- IMT (PS 《5 THNEN 
[1 


160 HILOR=【 

170 HPLOT PS HPLOT P3，84 
180 HEOLOR= 10 - 

190 HPLOT P4,83， HPLOT P4,84 


200 NEXT 
人 






很 多 用 家 都 知道 ApPple 工 内 
有 一 些 地 址 是 记 着 一 些 特 定 的 数据 
sa 例如 地 址 DO 5s 及 工 0 4 分 别 存 
着 BASIC 程式 开始 的 地 址 之 数据 
等 。 

过 个 程式 便 是 挟 了 些 特别 地 址 


一 ”STATUS 程式 


80 TEXT ;HOME ， CLEAR 
90 VThB 23，PRINT "Ht COPYRIEHT 
1885 BY HISTORY MAK 3 
100 人 (0) = siC 和 人 | = 042) = 
2;PR = 1 SPEEDa 200 
110 WTAB 2: HTAB 10， INVERSE ， PRINT 
。 STATUS “NORKAL ， PRINT 
"BY .5C.NAD"， PRINT 
120 PRINT ，PRINT "THIS ROUTINE 
STRRTS 人 T 0 PEEK 《103) + PEEK 
(104) 二 256 
130 PRINT ，PRINT "THIS ROUTINE 
ENDS RT 2 PEEK (175) + PEEK 
(176) 二 25 
140 PRINT ，PRINT "THE ROUTINE 上 
EM6TH IS “人 PEEK (1751 + PEEK 
(781 二 256) - ( PEEK (1103) + 
PEEK 1104) 4 256) 
150 PoKE 766，PEEK 1129)， POKE 7 
69，PEEK (LO = PEEK (7 
68) 8V2 = PEEK (769)2VT = 
1 》127) + (2 》127) 
160 PRINT ，PRINT wW0ST RECENTLY 
USED VARIABLE IS (9 CHR 和 人 
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30 


出 来 显示 於 萱 幕 上 ， 亦 可 以 作 硒 用 
过 些 地 址 的 范 例 。 


你 可 以 把 程式 作 一 些 改动 ， 例 


加 加 一 些 行 号 ( e.g. II45A 
29%6=3536:X 人 o%=7?72&8 等 ) ， 看 
看 那些 地 址 的 内 容 有 何 政 丢 ，。 过 样 
可 以 加 深 你 对 带 些 地 址 使 用 的 训 融 


口 


170 


160 


190 


200 


210 


220 


230 


249 


250 
260 





1) CHRS (V2TCY(VT) 5 
PRINT :PRINT *SPEED = "; 256 
-~ PEEK (241) 
PRINT ;PRINT "DISK VOLUME ， 
， PEEK (46017); 2 BO0TED IN S 
LOT“; PEEK 《435620) ADRIVE 
1 PEEK (143624) 
JIF PEEK (64435) = 和 THEN PRINT 
; PRINT “MENMDORY SI2ZE IS AT 上 
EAST 64Ks :60T0 210 
PRINT ，PRINT “HENHORY SIJZE 【 
S " ( PEEK (978) + 5) 7 4 
Ke 
VTAB 19: HTAB 13 PRINT “PADD 
LES SET (0}s (1)s “ 
VTAB 19，HTAB 17， PRINT  PDL 
(0)， VTAB 19 HTAB 273 PRINT 
PDL {1) 
PRINT ;HTAB 8 INVERSE ， PRINT 
*PRES5 SPACE BAR TO END" NOR 作用 L 


IF PEEK ( - 14384) = 160 607T0 
200 
POKE - 16336,0， 80T0 210 
SPEED= 255， TEXT 

< 呈 












@。 本 
f 
F 
1， 
了 
; | 
j 1 
/ 
和 
4 of | 
rise -or 
Di- ! 下 
3 fi 
3 4 is 间 
-4 Sa 
过 
玫 


后 ,于 re mw， Ti 天 申 @ 1 
的 ae 本 


人 凡 
2 













二 相 
人 

刘 人 人 1 

0 村 1 








1 



















请 灶 
和 3 时 2 ee TI 有 呈 2 证 :和 1 下 | 尼 并 让 
0 2 = 汪 人 1 化 
; 7 7 和 叶 和 化 ， 
















此 也 
上 
“7 


7 人 
1 记 了 了 基 本 有 到， ， 
抽 站 
和 的 遇 
开讲 


欠 人 


的 





5 
5 刘 风 证 人 


和 的 计 人 的 册 


二 


站 汪 全 : 
请 中 : 





在 第 2 1 期 我 们 推出 了 【趣味 考 资 料 。 
图 案 集 」 。 其 中 集合 了 士 个 九 稍 短 今 期 我 们 又 再 收集 了 多 个 答 图 
双 精 采 的 融 低 解像度 图 案 示 和 蔗 程式 程式 ， 供 喜欢 栓 图 的 用 家 作 一 秦 考 


。 需 各 用 家 提供 一 些 图 案 程式 的 参 。 。 


3| 








”可 以 把 它 储 起 : 


BSAV 了 BE UNO。A$2000 
*。 工 中 心 OO00 


要 使 用 时 ( 例如 作 打 印 等 ard 





过 是 -个 3D 立 体 的 贺 案 。 熔 Copy)， 可 用 BILEOAD 指令 再 载 
灸 需 时 ， 所 以 如 果 想 保留 过 幅 图 局 入 党 脑 内 。 
六 体 U 了 0 程 式 

10P= io0'8e 0 站 
20 H6R : POKE -~ 16302)0 ,0171 
30 HE0LORz 了 70Y={r0s (T) + .4t [0 (53 
40 FOR Is -QT0l TD) 4 8 
50Las IMT (,5+ 9@R (10000 - 1 80 HPLIT Jj+I+PY-I+a+2? 

# 1.564 TY 156)) 0 
t0 FORJIz> -LT0OUT= SoR (0 ?90 EXT 
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名 圈 花 图 程式 














~ 
-二 = 10 HBR2 ，POKE 232, 0 POKE 233 3 
一 一 20 FOR IT = 768 10 776，RE 人 DR， POKE 
去 二 在 图 IR; NENT 1 
锦 30 DATA 1 04.0 48,34 29 15 0 
-一 一 40 SCALE= 8 


光 是 一 个 利用 SHADBE TABIE |50 FOR As DOT 26STEP ,02 
_ 五 的 速生 图 形 描 造 出 来 的 回 案 ; | 的 只 =R+2-R》6) 4 好 
和 同 2 70 ，RDTz R 
你 亦 可 以 利用 有 如 扩 立 体 U 了 上 OOl> |8es80s 0 7 4 
处 介 帮 的 方法 般 ， 把 它 储 在 磁 碟 上 | 90 ，DRAN IT AT 138 + 09 人 


o 95 4X SIN (NA) 
100 NEXT 








出 “ 公 ”( 互 ) 或 “ 字 ”( 了) 的 

搬 银 他 或 然 率 机 合 有 多 大 ? 过 个 程式 会 自动 记录 

气 2 5 0 次 银 仔 的 比率 图 表 。 过 亦 

你 有 没有 想 过 你 挪 银 仔 上 时， 所 可 算是 一 个 攻 寻 图 表 的 代 作 示范 。 
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埋 银 仔 或 然 率 程式 


| 100 HCOLOR= 3 HBR2 

110 1 = 0;8 179;8 = 259 

120 HPLOT 00 TD 06T003T04 
3T040TD46 
HPLOT 0,173 T0 4 173 T0 2 17 
3T0 2 
HPLOT 9,0 了 
HPLOT B,0 T 


130 


9 
人 












160 HPLOT 9,89 T0 8 99 
170 FORX = 10T08 
160 :R = AhBS (INMT (RND (II) -， 
有 

190 ;HPLOT XR 和 
200;1=I+RysI1/( 人 -9 
240 ，HPLOT XY 生 和 
220 NEXT 

230 6ET 航 ; 60T0 100 











ee ， ee 4 站 
【4 | 
{ 

外 

[「 

? 

『 

1 

和 

1 

| 

| 

| 

| - 人 
Eee ee Ce 本 0 全 本 nine eeeeereeeese iesea ooseeve ooeaeee 人 

。  ， 
2 

1 

5 

| | 

“ 1 

! 

! 

# 扫 

人 

四 

| | 

【| 3 
] | 人 ee Ce 9 ee Ce ea 电 


七 彩 丈 果 


过 是 一 个 利用 字 串 和 与 融 解 像 度 
蜀 案 做 成 一 种 联 紧 。 使 你 可 以 轻易 
地 画 出 解 像 图 案 。 你 可 以 党 起 更 
改行 号 1 0 0 中 爸 数 男 再 的 有 内容 ， 
看 姥 有 芝麻 歼 示 。 
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七 彩 理 果 程 去 


冯 ) 
100 砚 = “01112222333222111005AD6 140YzI4+44 和 -4 (1 》54) 
IJKLHNHNMNOOPPPPPPPPPPPPPPPPPP 150Ts 且 C (NIDS (ti15 
PPPPPSMNMIHMNKKHGE27 16 呈 人 》54)， 1) 47 


110 HR lszlst-(I-2)3 (3 + 

120 FOR Is -4T070 46 1 (TI 》54) 

130 HCLOR= ( MB (+ 5 7 10) 4170 HPLOT CC -TYTICt+TY 
+(3t+(I》3) 呈 (人 T《 180 胰 1T 





山 双 分 析 图 如 果 要 储 起 来 。 可 以 用 指令 : 
吉 一 个 5 D 轿 案 更 像 一 般 人 慷 BSAVB HIII。A$400 
需 的 志 县 和 给 加 图 案 ; 它 利用 耘 横 交 OILI$2000 


钳 的 等 直 粮 去 表达 一 个 立体 图 型 的 
人 外观。 程式 是 在 了 GR 2 上 烩 亏 的 工作 。 


山 势 分 析 图 程式 


100 DEF FN WO = =- 1007 《6 
LI/12000 + 人 YE /1800) 4 
]) 

ii10.5s SIN (2.8) 

120 .H6R2 ; HCOLOR= 7 

130 FORE = - 140 0140 STEP ! 
7.5 

(40 FOR JI -140 10 140 

150 :; HPLOT 人 -EEC IAA2+ 1 
SFN UNWZ) + 让 冯 S+Y 112 

1460 了 EXT IE 

170 FOR ys - 140 T0 140 STEP ! 
7.5 

180 ， FORE as - 140 T0 140 

190 :HPLOT (人 -ES CI 12 14 
3，FN NIZ) YE 上 4S + 112 

200 NEXT 上 1 
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条 数 小 老 邹 


对 於 小 秃 生 来 法 。 学 习 算 术 时 
。 比 较 困 灵 的 要 算是 除数 了 ， 去 个 
除数 小 老病 便 是 供 8 至 1 4 底 的 小 
尝 生 学 悄 之 用 。 


程式 的 使 用 法 


除数 小 老病 程式 分 倚 两 个 部 份 
: 了 lashcard 及 革 ongs 上 了 las 
一 hcatrd 是 提供 一 些 比较 简 重 的 
除数 开题 。， 而 荆 ong 则 是 比较 俐 杂 
的 长 除数 ， 而 且 有 机 会 答案 是 有 饼 
获 的 。 而 在 寻 算 上 时。 会 有 乘 及 减 取 
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的 辅助 数 式 。 

在 使 用 了 lashcard 部 份 蛙 
。 你 有 两 欢 回 答 的 机 会 。 如 打 两 次 
都 答 钳 ， 它 会 题 示 出 正确 的 答案 。 
在 画面 顶部 有 显示 答对 及 钳 的 题 数 
*。， 汗 有 答对 题目 的 比 奉 ， 和 而 用 户 亦 
可 以 随时 返回 壮 择 表 。 . 

至 於 Long 部 份 ， 是 以 逐 部 的 
形式 去 答题 。 在 书面 的 上 端 有 显 东 
现在 应 谣 进 行 的 工作 步 飞 ， 而 在 伍 
面 的 左边 有 列 肴 攻 除 式 。 右 忱 是 提 
示 现 在 应 谣 进 行 的 还 算 ， 在 每 次 键 
和 人 数字 后， 都 请 按 下 妆 RETURN-> 
委 示 输入 。 

Long 部 份 有 分 佐 初 学 及 融 才 
两 种 程度 可 供 油 择 。 


ASTC 写 成 的 ， 边 入 后 可 以 : 


程式 的 轿 入 SAVE DB.TUTDR 


程式 是 用 Applesoft 3 了 一 把 它 储 起 来 。 

除 数 小 老师 程式 
100 60SUB 180 IjER， 
tt10 60SUB 350 330 DATA 1417323201 ,1 208，21， 
120 609U8 3320 173149，192，169 43521166,252， 
130 IF I 导 = "45 THEN 609UB 440 17211 515020842552061043， 

; 80T0 110 208 ,237,96，160 ,169 
140 IF IN = 2 THEN 60SU8 114 40 DATA 50,141，303 169，5141 

60T0 140 10，35173 3031141 45521109 

150 IF IJ = EC THEN HOME ，60T0 31238135015116912554205， 03， 

170 208, 232,96 
160 PRINMT CHR$ (7);，60T0 120 350 REH 
170 ENI 360 HOHE 
160 REH 370 VTAB 1，HTAB 1 809U3 490 
190 ESC = PHRY 《27) 380 60$ 明 500 
200 BK$ = CHRY 192) 390 PRIMT 。 DIVISION TUTOR 
210 JIN 8X(4) 400 60SUB 500，60SUB 490 
220 Bti) = 8:BX(2) = 7:BXI3) = | 410 605U8 510 

8;8X(4) = 35 420 HTAB 9 VTAB 人 
230 8F = [HR (42] 430 PRINT “1) FLASHCARD DIVISI0 
240 UN4 = 《HR4 (95) 
250 DIM DV4(5)， FOR IT = 1 T0 5 440 HTAB 9: VTAB 15 

防 各 DVITT) ， 泄 XT 450 PRINT "2) LON6 DIVISION 
260 RT = | 480 608U8 2920 
270 JINH TP(2) 470 RETURN 
280  DIN PXT 人 2) 480 REH 
290 9{ = 766:S2 = 769;83 = 770:50 490 “PRINT "==========z========== 

= 771| ==============2=2=3 ;RETURN 

00 FOR I =0T0 57: READ X， POKE 

S0 + 了 ,8 NEIXT 500 PRINT "=-------~---- 9 RETURN 
340 RETURN 
320 DATA "DIVIDES MULTIPLYS 。 5l0 INVERSE ，FOR IT = 3X(2) T0 

SUBTRACTs ，sBRING 了 ONN seRE 拓 和 BY (4) 
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520 TAB BY) HTAB IT PRINT 
FF 和 NEXT 

530 FOR IT = BX(1) TO BXI3) 

540 HTAB BX(4)， VYTAB IT PRINT B 

EXT 

350 FOR IT = BY(4) T0 BX(2) STEP 

= 

500 VTAB BX(3S) HTAB IT PRINT 8 

FF 和 吡 XT 

5 70 FOR IT = BX(3) T0 BX(I7 STEP 

< 

3J80 HThAB BX{2):，VTAB 7ZT: PRINT B . 
F4;: NEXT 

390， FOR IT = BXf1) + TO BX(3) + 
! 

600 HTAB BXf2) - 1: VTAB IT PRIN 
“TB 3X(2) -= 2: VTAB 】 
T+1 PRINT 2 NEXT 

ti0 FOR IT s ByXf2) - 1 T0 8X(4) - 
1 

020 VTAB BX(3) + 4， HTAB IT;， PRINT 
“4 VTAB BC + 2 HTAB 【 
T- 1 PRINMT 5 人 ET 

630 NORNHAL RETURN 

640 REN 

050 HOME : VTAB 10; HTAB 邓 

460 PRINT “人 ELCOIE TO FLASHCARD 
DIVISIDN3 

670 FOR DB s 1 T0 3000， NEXT 

680 HOME ; VThAB 3 HTAB 1，PRINT 
*RI6HT; 枝 0N65 

690 60SUB 2920 

700 RT as 0:MRK = 0ORs 10 

710 IF 和 kz0OTHEN SC =0 60T0 
7380 

7208SCz JMT (RTV (RT+ 有 1 
00 + ,5) 

730 VTAB 3 HTAB 8B; PRINT RT 

740，VTAB 3: HTAB 22: PRINT 如 

7150 VTAB 3 HTA8 3 了 6: PRINT SC 
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740 WRk = 1 E 

7708= INMT (RN (YL + 2 
8Bz INT (RD ID at +2 
:8B -AsBbcTz=10 

780 80SUB 970:， REI 

790 Pf = LEN ( STR (8B)) - LEN 
( STR 人 7) 

800 60SUB 1060， REN 

BIO IF INS = ESCS THEN RETURN 

820 IFFN《 》(B 7 人 THEN 860 

850 VTh8 14，HTAB 12; PRINT wVER 
Y 600D WORK'， 

840 60SUB 3410 

650 RAT = MT + 1 

6860 FOR D1 = 1 T0 1500，NEXT 

870 60T0 720 

860 CT = CT + ! 

890 60818 3370 

9%0 IFCT( 》2 THEN 800 

?0 腿 = 服 +1 


920 ThB 9 HTAR 10:， PRINT 。 
和 


930 VTAB 9: HThAB 11 + PX; PRIN7 
7/ A 
940 FOR 0DI1 = 1 T0 1500: NEXT 


纯 0 6070 720 


960 RETURN 
970 REN 
980 VTAB 8: FOR IT = 1 T0 7 
390 PRINT 
办 311 
1000 VTAB 1i，HTAB 10:，PRINT 9 ， 


1010 VTAB 10:， HTAB 410 PRINT UN 
和 唱和 UN 
1020 VTAB 1 8TAB 9 下 >》9 THEN 
HTAB 级 
1050 PRINT 
1040  VTAB Li HTAB t1 :PRINT 3 


1050 RETURN 
1060 REN 
1070 VTAB ?3: .HTAB 10 PRINT 。， 


]080 VTAB 9: HTAB 141 + P) 

]090 Fh = 全 

]100 60508 3440 

1110 IF IN = ESCY THEN RETURN 


1120 IF IN》 = 0 AND IN 


9 THEN PRINT JN$; FA = 


条 + 了 IN IF LEN 《FAS) 《 LE 


( STRY (8 7/ A)) THEN 60T0 1 
100 


]130 JIF (IN = CHRS {13)) 0OR (LEN 
= | 


(人 的) 》 EN ( STRY (8 / 


让)) THEN FA = VAL 《FA RETURN 


1140 PRINT :CHR$ (7) 3 60T0 1100 


1150 RETURN 

1160 REH 

1]170 605U8 1440 

1180 60SUB 2920 

il90 650308 1550 

1200 JIF TIM = ES THEN RETURN 


1210 60SU8 1640 
l20A=s INT (RND (1) 4 CA + 2 
= IJMIRNI (4 C8) + 
2:B=B+ht+ INT (RND 11) 
二 月) 
]230 TPt1) s 1 TP(2) = 1 0W = 1:P 
8 = “; 60SUB8 1910 


1240 FOR IT = TP(2) TO LEN ( STR 


(8) ) 
1250 TP(2) = IT 
[260 IF WAL IP8 + 有 2 (STR 
(B),TP{1) IT))》 》 m (人 THEN 
1280 


1270 有 眩 XT 

1280 PBY = NIDS { STR 打 (8)TP11) 
4 (2))sPB = VAL (PP89) 

1290 609U8 1980 

t300 ]F IN > ESCS THEN RETURN 


1310 JF IN = s0s THEN TPp(1) =.T 
pP(tI) + 1:TP(2) = 1，60T0 138 
0 

1320 60SUB 2120 

1330 了 F IN = ESC THEN RETURN 


1340 60SU8 2200 
1350 JIF IN = ESC THEN RETURN 


1360 TP(D) = TP(1) + TP(2)， IF TP 
(1 》 LEN { STR 【8B)) THEN 
吓 = 员 +1; 60T0 1400 

1370 咱 =- 呈 + 13:TP(2) = 1 

1380 IF TP(O) 《 = LEN (STR4 
8)) THEN 60SUB 2370 

1390 IF TP(D 《 = LEN 《STR 
B)) THEN 1290 

1400 60SU8 2600 

1410 60$U8 2820 

1420 FIN《 》ESC THEN 1220 

1430 RETURN 

1440 REN 

1450 NOIE 

1460 VThAB 3 HTNB 了 

1470 PRINT WELCOME TO THE LON6 
DJVISION TUTOR,， 

1480 VTAB 5; HTAB 3 

1490 PRINT "CH009E ALEVEL OF D1 

FFICULTY， 

1500 VTAB 9; HTAB 15 

1510 PRINT sL)” BE6INNINB。 

1520 VThB 12;， HTAB 45 

1530 PRIMT 2) ADVANCED 

1540 RETURN 


1550 了 REH 

1560 60SUB 3320 

1570 IF IN = “1 THEN IF = 1 60T0 
1610 

15860 于 IN = "2 THEN DF > 2 60T0 
1610 

590 IF IN 性 上 SC 车 THEN RETURN 


1600 PRINT CHR 7) 60T0 1540 


1410 IF DF aa 1 THEN CA = 8;[B = 
4003 RETURHN 

1620 IF IF = 2THEN [CAR = 99:CB = 
9 

1630 RETURN 

1640 RE 

1650 HO 配 ，VTAB 1 608UB 1820 

1660 FOR IT = 2 7T0 22:， VTAB IT: HTAB 
于 PRINT "4#s 3 HTAB 403 PRINT 

-3 失 XT 

164710 VTAB 22;， 60SU8 1920 

1480 FoR IT > 27T021STEP 2 

1690 VTAB IT HThAB 2 

1700 FOR JI > ! TO 18， NORNAL PRINT 
TVERSE ，PRINT DNS NEXT 


1710 HThB 39，NORNHAL PRINT "-， 
;NTAB 39，TNVERSE ，PRINT 
UN 

1720 VTAB IT + 1，HTAB 2 

1730 FOR JJ = 【 T0 198 INVERSE ， 

PRIMT “号 NORNAL ，PRINT 
UN 和 NEXT 

1740 NEXT ，NMORNAL 

1750 FOR IT s 2 TD 6: VTAB IT; 608UB 
1850， NEXT 

1760 VThAB 7，60SU8 1660;，VTAB 22 
: 60SUB 1840 

1770 60SUB 1874 

1780 VThB 2: FOR IT = 1 T0 5， HTAB 


40 


154 PRINT DV4(I7)，AEXT 
1790 6508UB 1690 
1800 RETURN 
1810 HH 
1820 HTAB 1 PRIRT 四 生 和 各 生生 检 计 计 攻关 和 
攻关 攻 尖 重要 生 学 全 失利 重合 刘 因 轩 量 基 生 十 逢 恒生 恒 并 要 
多 
1830 60SU8B 2920 
1840 RETURN 
1650 jT 有 140: PRINT 于 
1 RETURN 


zz==========zsscc=xz=1i 8 RETURN 


1870 FOR IT > 8 T0 21:， VThAB IT 
1880 HT 和 4 PRINT * 
1 汪 XT 
RETURN 

1890 FOR IT > 2 T0 6 VYTAB IT;， HTAB 
[1: PRINT 。， 和 NEXT 

1900 VTAB 1 + RT，HTAB 11，PRINT 
-> RETURN 

1910 REH 加 

13920 FoR IT = 867T02t 

1930 VTAB IT: HTAB 5 PRINT 

"NEXT 

1340 VTAB 10 HTAB 8 - LEN { STR 
(有 ) 

1330 PRINT A2) "8 

1960 VYTAB 9， HThB 8:， FOR IT = 4 T0 
LEN ( STR 可 {B)) PRINT UNY 
; 人 ENT 

1970 RETURN 

]980 REN 

1990 PXI) = PB:P1(2) = 

2000 RNT > 1 609SU3 1690， 609U 22 
00 

2010 [CT = 0 

2040 VTAB 8 HTAB 7 + TP(1) + TP 
{2) 


2030 80308 3140:，JF 【IN = ESC THEN 
有 ETURN 

2040 PRINT 工人 

2050 IF IN >》 = "0 NND TI 性 5 = 
"了 "THEN 2070 

2060 PRINT CHR 本 47);: FOR 0 = 
{ T0 200; 了 人 ，6070 2020 

2070 JF YAL (IN) = INT (PB / 
A) THEN 60SUB 3410，60T0 21 
00 

2080 60$U8 3370:CT = CT + 1 

2090 IF CT >》3 THEN 2020 

2100 VTAB 8:， HTAB 7 + TP(i) + TP 
(2) :PRINT IMT (PH 有) 

2110 了 ETURN 

2120 RE 

2130 PX(i) = INT !(P8 7/ Ah:PX(2) = 
4:RT = 2 60SUB 1890，609UB 
2200 

2140PZ = JNT (PB  A) + AICT = 
0 

2130 PD = 8: 680SU8 2970 

2160 If IN = ESC THEA RETURN 


2170 VTAB 9+ DA 3 HTAB 8B+T 
P(I) + TP{2)》 - LEN (STRS 
P2)) 

2180 FOR IT=1T0O LEN (STR 
PZ))， PRINT UN ， NENT 

2190 RETURN 

2200 REN 

2210 RT = 33PX(I) = PB:pPX(2) = WAL 
(PY$)}， 60SUB 1890:; 80SUB 226 
0 

2220 PB > P8 - WAL (PY$) IPB = STRY 
(PB) 

2230 py = "CT = 0:P7 s PB 

2240 PD = 10， 60Sb 2970 

2250 RETURN 

2260 REYK 


4| 


2270 VTAB 10: HThB 228 PRINT “ 


2280 IFRT=40RRT =>5THEN RETURN 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


VTAB 10; HThB 23 

PRINT PX(1D)s 。 

DN RT 60T0 2320,2330 ,2340 
PRINT "/ 汪 ; 60T0 2350 
PRINT 1 5 全 60T0 2350 
PRINT "- 。 

PRINT PX(2)。 = ?9 

2360 RETURN 

2370 REN 

23680 RT = 4; 60SU8 1890，60SU8 22 
0 


-2390 804 = 人 0 ( STR 1B),TP(1D) 


衣 ) 

2400 60SU8 2470 

2410 P8 = P84 + 804:PB = 
了 ) 

2420 VTAB 7 + 串 5 3 HTAB 9 + T 
Pt) - LEN 《人 p8) 

2430 PRINT PB4 

2440 RT = 4; 60SU8 1890 

2450 P84 = STR4 《PB) 

2460 RETURN 

2470 RE 


VWRL 作 


2460 DY = 120:R1 > 0:R2 > 100;R3 = 


4 

2490 FOR IT = 1 T06 

2500 INVERSE ，VThB 10，HTAB 8 + 
TP{11) 

2510 PRINT 80$， NORNAL ，605U8 2 
790 

2520 VTAB 10: HTAB 8 + TP(D) 

2530 PRINT 8D$，60SU8 2790， NE 人 NT 


2540 DM = 10 
2550 FOR JI = 11 T0 DNS+7. 
ZJ60 INVERSE ，VTAB JI，HTAB 8 + 


TP(tI) INVERSE ， 
.530 609U8 2790 

2570 NORNAL ，VTAB JI: HTAB 8 + 
TFT NORNAL PRINT BDI 二: 
3530 603UB 2790 

2980 VTAB JI2 HTAS8 8 t+ TP(E)， PRINT 
4 

2590 RETURN 

2000 REH 

2610 RT = 54 609U8B 1890，80SU8 22 
60 

2620 603U8 2660 

2630 HTAB 10 + TP(Ni VTAB 

2640 PRINT "R “PDB 

2650 RETURN 

2460 REH 

2070 DJ = 10:R1 = 1:R2 = 200:R3 = 
5 

2680 FOR IT = 9 T0 10 VTAB DW + 
St+73 HThAMB IT + TPIL) 

2690 INVERSE ，PRINT ，293 
5530; 609U8 2790 

2700 VTAB DYtYStY 7 HTNB IT+ 
TP 人 1) 

2710 NORNMAL ， PRINT “> 80SUB 3 
530， 60548 2790; 旺 XT 

2720 FOR IT = INWsY+6T09STEP 

2750 HTAB L1 + TPI  VTAB IT 

2740 INVERSE ;PRINT "^" 60SUB 
y9304 60SUB 2790 

2750 HTAB 1 + TB VTAB IT 

2760 NORNAL ; PRINT *^"， 80SUB 了 
530; 60$UB 2790 


PRINT 82 人 60SUB 


605U8 


609 由 8 


2770 
2780 
2790 RH 

2800 FOR BDI = 1 T0 0 NEXT 
2810 RETURH 

2820 REN 


2830 VTAB 135; HTAB 22: PRINT “F0 
R_ MORE，PRES5” 
2840 VTAB 15，HTAB 25，FLASH : PRINT 
”《RETURN》 
28S30 FOR DI = 1 TO0 1200:， NEXT 
2860 TAB 15: HTAB 25: INVERSE 
PRINT "《RETURN>》 “NORNMAL 
2870 WTAB 17， HTAB 28:， 60SUB 314 
0 
2880 JIF IN > THR (43 AND 
IN 攻 《 >》ESCS THEN 2970 
2890 VTAB 13: HTAB 22 PRINT ， 
2900 VTAB 15; HTAB 22; PRINT " 
2910 RETURN 
2920 REH 
2930 WTAB 2358 HTAB 10。， INVERSE 
2940 PRINT “PRESS “ESC”TO LEAVE 


2950 NORNAL 

2960 RETURN 

2970 REHN 

2980 VThB PI + 34 吓 ，HTAB TP(1 
) + TP《2) + 有 -EN 《 3 
(PZ))，PRIMT ， 

2990 Py = si VTAB P 太 + 3 OH HTAB 
TPU) + TP(0) + 8 - LEN ( STR 
(PZ)) 

3000 6084B 3140;， IF IN = ESC* THEN 

RETURN 

3010 IF Ji = CHRY (13) THEN 30 
70 

3020 IF hMSC (INM) 》31 THEN PRINT 
1M4; 60T0 3040 

3030 PRINT ，*; 

3040 IF IN 》 es0 AND IN 《 = 
"9"THEN 3060 

3050 PRIMT CHRS 17) CHRY 《9) 
3000 


: 60T0 


5060 PY$ = PYS + INS IF LEN (PY 
4 《5 THEN 3000 

3070 60SUB 3120 

3080 IF VAL {PY#) = PZ THEN 60S0B 
3410: 60T0 110 

3090 60SU8B 3370: IF CT = 2 THEN 
10 

lou LT=ktft+tli' 60T0 2980 

0 PY = STR 《(PZ)， 603SU8B 3120 
; 有 TURN 

3120 WTAB PD + 3 芋 DNS HTAB TP(1 
) +TP(2+8- LEN (STRY 
fPZ))PY 林 = STR (VAL 《(PY 
))7 PRINT “ ”CHR (8) CHR$ 
(8) CHRS 《19) CHR 本 《8) CHR 本 人 
8)PY5 

3130 RETURN 

引 40 REH 

3l50 POKE -~ 16368,0:0DX = 4 

3160 NORNAL : PRINT "22 CHRY (9) 


5170 FOR DT = 1 TO 0 80SU8 326 
0 

3180 IF cX = 1 THEN 3240 

330 NEXT 

3200 NORNAL ;PRINT UN CHRS 18) 


和 

S210 FOR MI = 1 T0 DX 609UB 326 
4 

220 IF CX = ] THEN 3240 

y230 NEXT : 60T0 3160 

240 NORNAL :， PRINT “ “CHR$ 《8) 


5250 RETURN 

3260 CI = 0:X = PEEK { -~ 16384) 》 
127 

270 0NXY.+ 1】60T0 260,3290 

y260 RETURN 

3290 POKE -~ 16368,03JN = CHRY 
{ PEEK ( -18584) ) 
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3300 C = 1 
3310 RETURN 
3320 RE 


30X= PEEK ( -16384) 》127 


3340 0N YY+1 60T0 3330,3350 

3350 POKE -160630803IN = CHRY 
{( FEEK {( - 14384) ) 

S360 RETURN 

3370 REN 

380 POKE S3,0 

390 CALL SI 

3400 RETURN 

5410 REH 

5420 Rt 4+ INT (10 人 RND (1) 
. ) 

34350 R2 = 200 

3440 FOR ZI as 1 TOR 

5450 Rs R2 + INT (40 3 RND ( 
) ) 

3460 POKE 31,255 - R3 

3470 POKE 52,RS 

3480 PDKE 53,1 

3490 “CALL SI 

3300 Re RS - 15 

510 了 屁 XT 

3520 RETURN 

5330 REH 

3940 IF RI《 >0THEN R2 = R2 - 
RS 60T0 3560 

550 R2 = R Y RS 

3560 POKE 8$1,255 - 科 

910 POKE S2,R2 

3580 POKE S3,1 

3590 [CALL 8 

y600 RETURN 





旋 者 心 委 人 :; 

相信 你 的 了 e 小 没有 接 上 水 辰 ( 即 三 接 弥 中 最 长 的 一 支 ) 。 因 坑 JT e 
的 外 融 及 其 内 部 的 地 粽 均 已 接 至 水 线 内 ， 由 电源 入 漏 出 的 交流 电 ，。 有 可 能 
沁 往 机 浆 。 或 是 地 和 缚 内 。 过 样 当 你 接 角 到 机 损 ( I e 的 外 栅 ) ， 或 是 光 笔 
* 收 埋 机 天 穆 ( 由 地 和 线 传 六 ) 时 。 便 会 有 角 帘 的 感觉 ( 吉 人 体 往 地 上 传道 
) *。 尤 其 是 在 手 避 拉 潮 混 肝 更 明显 。 故 只 要 把 你 所 用 的 电脑 电源 氢 往 一 有 
安全 水 稼 的 插座 ， 而 搬 郑 兹 换 上 有 水 嫁 的 三 脚 反 *。 副 栎 便 可 免除 钥 入 之 


毛病 了 。 
葛 果 信箱 银 


篇 辑 先 生 : 
我 是 忒 果 用 家 月 刊 扫 该 者 。 现 有 赵刚 问题 ， 斋 望 鼻 刊 给 予 解答 。 
所 8 0columna Card 是 否 可 埋 独 用 於 6 4K APPILBE 了 ?是 否 典 过 
2Z80Card 一 起 才 可 用 ? 
伺 | 我 售 将 一 8 0 Col umn Card 插 人 APPIBI 之 Slot 3，。 但 灵 面 内 
煤 不 定 ， 而 疡 8 0 Column Card 用 奏 另 一 APPLBE I 机 中 则 可 以 工 
人 


一 aTd 2? 


泣 者 区 .YUEN 


猿 者 册 。YUEN 君 : 

80-Co0ELI 卡 和 2 一 8 0 卡 无 面 接 之 天 傈 。 两 者 均 可 独立 换 作 ， 即 
只 有 8 0 一 CO0L， 或 只 有 2 -890 卡 ， 而 癌 蛙 与 主机 记 情 匹 唤 。 在 基本 
的 48K 主 机 上 ， 只 接 上 8 0 一 COTIL 卡 ， 可 在 APPILERSOETIT 下 用 了 呈 
# 3 使 用 过 卡 。 又 或 者 捕 上 2 一 80 卡 * 在 40C0 工 下 运行 C 卫 / 世 操 
作 承 入 。 
”而 第 二 个 问题 则 可 能 出 在 不 同 的 使 用 条件 上 ， 因 主机 电源 是 否 称 定 。 


46 


及 使 用 的 显示 器 是 否 相同 亦 有 影响 。 如 果 是 条件 相 同 的 逢 。 则 应 圾 有 相间 
的 委 现 。 
天 果 信箱 氏 


篇 辑 先 生 : 
首先 积 幅 刊 业务 蒸 燕 日 上 。 现 小 弟 有 以 下 问题 。 请 代 解 答 。 

1. 贵 刊 第 2 4 期 第 3 3 及 34 页 的 DATA 行 中 有 些 数字 之 间 有 空位 出 现 。 

-请问 是 否 调 了 一 些 DAIAT?T 

2 小 弟 的 电 觅 是 用 6 粒 2732RONM 有 8 粒 4164 及 AI 区 。 过 是 否 襄 
我 的 党 胸 有 2 4 RONX 有 64K RAMS9? 果 是 的 话 。 怎 柑 才 可 
用 另外 的 12K ROXM 有 AL6KX RAINM? 

3. 小 弟 用 的 MONITOR 是 NEC PCc--8050N， 辟 党 营 幕 的 字符 淘 
常 作 轻微 的 左右 主动 。 不 知 有 何方 法 解决 ? 


蓝 者 HARDY 上 


渔 者 HARDY : 

来 信和 外 禾 如 下 : 

1. 更 果 月 刊 第 2 4 期 3 3 页 之 DATA 的 空格 是 打 人 砍 料 时 上 踊 忽 所 致 ， 因 人 
一 了 HL 不 台 对 DATA 以 和 后 的 资料 作 任何 镁 整 。， 故 去 些 空位 仍 保留 来 
* 但 各 DATA 是 正 礁 的 。 

2. 可 以 进 样 询 ， 但 对 6 枚 273 2 的 剖 法 有 些 存 疑 。， 因 除了 一 入 日 本 1 9 
2 十 机 板 是 有 2 4K RONM 外 (8 玉 x3 )，。 其 他 的 都 是 只 有 12 玉 
ROI 的 ，(2 开 Xx6 或 4KXx3 )。 故 可 能 有 3 枚 是 无 用 的 ;而 另外 
之 16 玉 RAX， 则 可 用 作 16 玫 K 卡 的 一 般 用 途 ( 而 搬 扩 展 卡 的 数目 
会 少 一 个 ， 即 没有 了 Slot Oo) 。 

3. 可 把 MONITOR 和 二 脑 的 距 风 分 了 月 较 速 试 试 看 。 如 无 效 则 可 用 逢 灰 吉 
把 市 电 升 高 至 2 40 YY 武 越 有 否 改 善 。 


莫 果 信箱 氏 


号 


47 


HH 
微 求 稿件 


本 刊 数 迎 各 策 者 投稿 ， 无 哗 是 硬件 驱 作 、 自 稻 程 式 、 孝 件 摆 介 等 一 律 数 迎 。 在 投 烙 睹 东 
注意 以 下 训 项 : 
1 ) 来 祝 销 用 4 0 90 字 原稿 弥 书 襄 。 文 字 一 般 以 不 超过 2 0 0 0 字 角 限 。 
2 ) 如 稿件 附 有 限 片 。 必 须 清晰 ; 而 奏 太 风 有 撩 清 楚 整 产 ; 站 应 附 有 其 议 明 文字 。 
s5 ) 如 傈 程式 稿件 *。 跻 把 程式 健在 磁 夸 成 卡 式 性 上 “，。 郑 附 上 程式 了 列 一 份 。 
4 ) 超 尝 该 件 必 须 赴 明 原 文 出 处 。 最 好 附 上 原文 之 副本 乙 份 。 以 便 厌 考 。 
5 ) 本 刊 圣 来稿 有 村 作 人 删改 。 而 稿件 一 经 刊 出 即 致 薄 一 。 
5 ， 投稿 者 清 将 作者 之 夸 实 姓名 、 联 格 地 址 、 沁 自 付 上 。 以 便 联 在 。 
?7 ) 切 勿 一 稿 南投 。 
固 投 稿 清 寄 
九 节 中 央 邮 政 代 箱 7 2 0 2 7 驱 
戎 果 用 家 月 刊 收 
封面 铺 坟 明 [投稿 」 二 字 
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频 条 用 家 人 





态 靖 时 二 贿 忆 时 基 让 JI 


全 拉 用 家 i 基 过 证 区 - 外 ， 

目 ; 到 为 { 月 刊 过 二 辣 : 放生 直 

- 开工 7 TFT 和 = 贡 T 机 
的 二 区 天下 
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四 5 

这 7 0 

了 人 全 和 和 、: 
0 注 有 : 
RS 1 

| < AL 
攻 三 | ES 
0 
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